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A L'ORDINATEUR INDIVIDUEL, les rédacteurs, les conseillers techniques, les correspondants à 
l'étranger, l’équipe entière se mobilise pour vous fournir tous les mois une information 
complète et de qualité. Le monde de la micro bouge : L'O.L. teste pour vous les micros et 
logiciels qui apparaissent sur le marché. Il vous dit lesquels choisir et pourquoi. Vous êtes déjà 
équipé et vous souhaitez tirer le maximum de votre machine ? Les spécialistes de L'O.I. vous livrent 
conseils, programmes inédits et astuces d'utilisation. Lisez chaque mois L'ORDINATEUR INDIVIDUEL. 





Pom's numéro 21 - Novembre-Décembre 19835 


Conversion 
Pascal/Dos 


Jean-Claude Lengrand 









Courrier automatisé 
en WPL 






Véronique Schmitt 






RWTS désassemblée 


Patrice Neveu 







Page 21 


Décrypteur 


Paul Fransceschi 





Library : un ‘Motif 
de satisfaction 


= 


Les annonceurs : 







Marianne Sutz 
Page 40 











A.C.L : page 75. Apple : pages 38 et 39. LE.F. : page 25. Mnémodyne : page 4. 
Ordinateur Individuel : page 2. PSI : page 76. Télécompo : page 52. 


Une corbeille dans 


Jean-Luc Bazanegue 


Fenêtres de saisie 
Gérard Michel 


Page 47 


La 36ème piste 


B. Toméno 


en 


Un compatible 
in compatible ? 


Yvan Koenig 
Page 53 





Défilement graphique 


Patrick Quettier 


//e 
ES 


Calcul de 7x 


Michel Dominique 


MH) [Me 
LE 


Editorial 
Bibliographie 
Courrier des Lecteurs 
Micro-informations 
Entretien avec Jean- 







Page 59 











Editions MEV - 64/70 rue des Chantiers - 78000 Versailles. Directeur de la publication : Hervé Thiriez 


Pom's n° 21 





dd ira 


di. ie pt à 


sur Apple 
le 
ÉA 


BASIC APPLESOFT 


DECOUVREZ PASCAL 
SUR APPLE ][, //e, //c 


John COLIBRI 

La nouvelle édition en 2 tomes de ce grand class 

une initiation pas à pas, par l'exemple. Décrit l= 

de la version 1.2, et l'utilisation du PASCAL sur APPLE 
APPLE //e. Comprend aussi les schémas mémoire et les exe 
d'exécution. 


Tome l: matériel nécessaire, branchements, 
variables, contrôle du programme, procédures 
(localité, paramètres, récursivité). 352 pages, 57 
193 schémas et figures. 

Le livre seul:...... 


. .148 F TTC 
La disquette du livre..... 


15 F TTC 


Tome 2: tableaux, enregistrements, fichiers, ensembles, 
pointeurs. Unités et segments, chaïînage, fichiers de 
commande, lancement automatique. Une mine pour le traitement 


RECUEIL PASCALISSIME 


Recueil de programmes et d'articles PASCAL 


Recueil 1: étiquettes - dump Epson - tri disque - modules 
assembleurs - séquentiel indexé - baguenaudier - lettres 
géantes — fichiers graphiques. 


Recueil 2: labyrinthe - copie de fichiers - les routines réelles 
- source de l'interprète 6502 - perspective 3D - assembleurs 
6502 symbolique. 


Recueil 3: système expert - gestion d'adresse - générateur de 
menu - compilateur nano PASCAL - l'éditeur Elastique - 
utilisation de la souris - initiation PROLOG - tutorial Turbo 
PASCAL 1/N 


120 F TTC 


Chaque recueil... 
80 F TTC 


Les disquettes de chaque recueil 


TOPIQUES PASCAL 





00$ 3,3 - PADDDS 
pages, 175 figures, 63 programmes. 
Le livre seul: . .…… . 
La disquette du livre... css. 


Disquette d'utilitaires Ginstallati 


programmes, utilisation de la souris, conversions, etc) 


Le disquette d'utilitaires:.......... 


BASIC APPLESOFT DOS 


Paul MERRY 
Guide de référence alphabétique. 


exemples, types d'erreurs. Programmes de gestion de ficniers, 
calculs scientifiques, graphiques haute et basse résolu 
Siéme édition augmentée avec PRODOS, 102 programmes, 641 


pages. 
Le livre seul........... 
La disquette du livre... 


MAGICALC TUTORIAL 


Christian B DUBOS 
Manuel pas à pas pour apprendre 


des fichiers, un exposé complet sur les pointeurs, et 33 
fabuleuses annexes qui en font un ouvrage de référence. 424 


John COLIBRI (septembre 85) 


Descriptions et utilisation des techniques avancées et du 


148 F TTC 
...60.6°15 F TTC 


Fichiers de longueur 


ion, impression de 


e…ssossosr. 98 F TTC 


3.3 et PRODOS 


Définition, utilisation, 
Christisn B DUBOS 


--168 F TTC 
....15 F TTC 


â utiliser MAGICALC. 


Contient 10 tableaux professionnels commentés: devis, planming 
de fabrication, bulletin de salsire,  fscturstionfstox, 


investissements, hudgets, CEG/bilens 
d'entreprise, étude de prix. 383 pèges 
Le livre seul......... 

La disquette du livre.. 


INITIATION PASCAL 


John COLIBRI 
Stage de formation avec le célèbre spécialiste 
PASCAI. Methode pns à pas, AVEC travaux pratiques 
sur IBM PC, Apple Il, Me Intosh. Conventions de 
formation . 
de données simples, structures de contrüle, 
ures et fonctions, données structurés, 
gestion de fichiers, treis en mémoire, 
programmation structurée. 
Prœhnines sessio 7 Janvier, 4 Mars, 13 Mai, ler 
duillet, 5 Aout, 2% Septembre, 4 Novembre 
4 jours... .... 4900 F HT 


GESTION DE FICHIERS PASCAL 


John COLIBRI 

Stage de formation animé par un virtuose des 

fichiers. Travaux pratiques sur IBM PC, Apple I, 

ac Intosh. Conventions de formation. 
Saisie contrôlée, gestion de masques, structures 
de tri (hash code, B arbres} et séquentiel inde 
Programmes importants (compilation séparée, 
segmentation, chaînage). Fonctionnement de 
l'Operating System et utilitaires PASCAL. 
Communientions. Compatibilité et transferts entre 
versions PASCAL, 

Prochaines sessions: 3 Décembre, 4 Février, # Avril, 

3 Juin, 7 Octobre, 2 Décembre 

4 joUTSerersmmmmnesesemesscssssssssee 4900 F HT 


DISQUETTES DE 
PROGRAMMES SOURCE 


Textes sources. Format Apple 2) 
Le compilateur P4 de Zurich. Le langage PASCAL 
COMPLET sessmesessssssessss ss 190 F TTC 
Le compilateur intarprête  PASCAL S 
(compilateur interpête en mémoire, sans les 
pointeurs et sans les fichiers)........ 145 F TTC 
Le compilateur PASCAL C (PASCAL S moins les 
réels, plus la coneurrence)........... 90 F TTC 
L'interprête de P CODE 6502 (texte de l'interprète 
et du BIOS désassemblés).... F TTC 
PASCALISSIME Lessssees F TTC 
PASCALISSIME 2.. F TTC 
PASCALISSIME 3... F TTC 
PASCALISSIM TTC 
PASCALISSIME F TTC 
PASCALISSIME Gosse r 
Découvrez PASCAL Tome TE 
Découvrez PASCAL Tome 2:,..... TTC 
Attach Bios (utilitaire de rattachement de 
périphériques), se ssreseesesmmesosesese 98 F TTC 








Vous pouvez acheter ces produits directement, ou les 
commander par correspondance en envoyant votre 
commande et le chèque du montant à: 


MNEMODYNE 
26 rue Lamartine 
75009 Paris 


Tel 42 85 10 82 - Métro Cadet 
9h-12h 13h-18h, Mercredi jusqu'à 1#h30 
Fermé lé samedi 


produits seront visibles sur le stand de 
NSTITUT PASCAL lors du SICOB BOUTIQUE, du 
SICOB DE PRINTEMPS ou d'APPLE EXPO. 


nouvelles 

séminaires, initiation, Béibbogrssts. 

AU NUMÉFO: . rss 25 € 
Abonnement de 12 numéros... 208 © 
Abonnement de 12 numéros 4 4 sgu-etes 
(format Apple UCSD cu 1EMMS ECS) 297 72€ 


LIBRAIRIE 


Plus de 200 livres sur PASCAL. Ouumuges = 
MODULA, Lisp, Prolog. Ses, AD. Cuiesaums 
américaines (Addison Mesley., Æupéen, MSeomx 
Osborne, Prentice Hall, Mestom, Spemgez Mering 
Wiley) et françaises (Dunod, Ewesiles. Coëtes Me 
Masson, Sybex). Documents © lugrzmes 
Pascal. Rayon PROLOG en pen esse. 


GUIDEX 


Cartes de référence en coeur. Messenties & Le 

portée de la main. 

GUIDEX ERREURS PASCAL (cie. 
exécution,  entrée-sortie) - CUEDEX APPLE 
PASCAL (périphériques, options € piston. 
extensions) - GUIDEX SYNTAXE CSD - CUMEX 
CODES ASCII (table des codes, entrée des cotes. 
fonetions système) 

Chaque GUIDEX:....rsmmnmmmmum… 28 MIT 


CLUB DES UTILISATEURS PASCAL 


SESSIONS INITIATION AVEC TRAYAUX 
PRATIQUES: Tous les 15 jours. 

19h30 à 21h. 13 Novembre 
SESSIONS PRESENTATIONS 
mercredi de 19h30 à 21n30. 
utilitaires et outils, 
FROLOG, PILOTE, communications, 

graphiques ete. 4 Déc: MAC PASCAL, 

arbres binaires à clés de taille warisble, 
bibliographie à l'aide de fichiers semi structurés. Les 
minutes des présentations sont publiées dans 
Pascalissime . 

Cotisation annuelle:................. 290 F TTC 





de commande; 


PRODUIT: PRIX TTC: 


Le port en France Métropolitaine est compris. Pour les 
autres destinations: ajoutez 20F par produit. Précisez 


le format des disquettes commandées. 


fonctionement système. 





Conversbes de es - Entrées / 
sorties directes - Tableaux dyneniques — Emterprète Visicalc - 
warisble - Fichiers Dynamiques - 
Implémentation: plan mémoire. Operating System, Interprète, 
Segments et Unités. 58 programmes. 4 pages 

Le livre seul....... 
La disquette du livre. 


VISICALC TUTORIAL 


……. -290 F TTC 
98 F TTC 


Manvel çes à pes pos sppremére à utiliser VISICALC. 
Contiont 18 tubl=es ==fhasees-is commentés: devis, planning 


,  facturation/stock, 
prévisions, stratégie 

pages 
….sse...145 F TTC 
..15 F TTC 


e. Définition, utilisation, 
onctions et manipulations 


-145 F TTC 
.15 F TTC 


OUTILS 8088 / IBM PC 


- ASSEMBLEUR SYMBOLIQUE 8086 
Edition de texte, assemblage et exécution en 
mémoire. Peut générer un fichier .COM ou du 
texte Inline Turbo...... + 490 F TTC 
- DESASSEMBLEUR SYMBOLIQUE 8086 
Fichier de paramètres des zones de données. 
Validation des labels. Re définition des labels. 
Sortie écran où fichier rê assemblable 490 F TTC 
- DESASSEMBLAGE DE TURBO PASCAL 
Versin 2 ou 1 (nécessite Turbo.com, non 
fourni)esssonsssesesssosessenessesssos 290 F TTC 


LES LANGAGES EVOLUES 


- PASCAL UCSD Environnement de développement 
Version IV IBM PC sous MS DOS 5950 F TTC 
Version 1.2 Apple (utilise 128K {/e) 1500 F TTC 

- Compilateur MODULA I! - Génère du code natif 
Version Lisa (Mac Intosh en Mai).. 2900 F TTC 

- R LISP 2.0 (le MAC LISP de Winston intégral) 
Disquette Apple // 128K, et manuel.. 590 F TTC 


PROLOG. 1.3 


Système de développement PROLOG complet. Destiné 
essentisllement à maîtriser rapidement le langage et 
à comprendre ses domaines d'utilisation. 

Editeur de règles pleine page. Interprétation en 
mémoire centrale. Possibilité de trace hiérarchique 
mise en oeuvre à n'importe quel moment. Explication 
des résultats. Mesure de l'efficacité de la solution. 
Syntaxe simple. Version APPLE 2 et IBM PC. 

Le système PROLOG LeBiesssssess.s 490 F TTC 


PRODUITS PASCAL APPLE 2 


= MNEMO DUMP: affichage du contenu d'une 
Msqueite où d'un fichier, affichage du contenu de 
sou E TTC 

rapide du contenu de fichiers 

recherche de textes... 45 F TTC 

= PIP-EDITOR: éditeur UCSD amélioré (table des 
matières, impression ligne à ligne, généralisation de 
Plage et Aldjust etc). as ss LOUP TTC 
- MNEMO DE PCODE désassemblage d'un fichier 
comp. Mnémoniques en toutes lettre.. 290 F TTC 
= Transfert de fichiers Apple UCSD -> DOS 3.3 et 
DOS 3-3 -> UCSD...........ssssursoose 290 F TTC 
= Communiestons Apple UCSD/I1BM UCSD.. 490 F TTC 
- Comauniestons Apple UCSD/IBM TURBO 490 F TTC 
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Editorial 


La presse nous inonde depuis deux mois d'articles sur les péripéties d'Apple, avec le départ de Jobs 
qui a suivi celui de Wozniak. Les financiers ne semblent pas se fier aux nombreux bruits alarmistes : 
l'action d'Apple flotte aujourd'hui (fin octobre) aux environs de $18, soit 10% de mieux que la 
moyenne du cours ces derniers mois. 


Cela tient aussi probablement au succès obtenu par Apple contre Digital Research au sujet du système 
GEM pour IBM; ce système imitait par trop la présentation et les graphismes déjà devenus classiques 
grâce au Macintosh : Digital Research est obligé de retirer GEM du marché le 15 novembre 85, doit 
verser de l'argent à Apple (“undisclosed amount”) et soumettre ses nouvelles versions à Apple avant de 
les sortir sur le marché. Voilà qui ralentira la sortie effective de l'Atari 520 ST qui, avec l'Amiga de 
Commodore, est un des deux concurrents du Macintosh; en effet, le 520 ST devait lui aussi utiliser le 
système GEM. 


N'oublions pas non plus deux faits importants : tout d'abord, la gamme Apple s'enrichit de jour en 
jour, qu'il s'agisse de la ligne Apple II ou de la ligne Macintosh; et enfin, quel est le constructeur de 
micros qui ne connaît pas de problème ces temps-ci ? Même IBM France a été obligé de revoir ses 
prévisions de vente d'IBM PC pour l'année 1985, en baisse de 100 000 à 60 000 unités ! Nous 
gardons donc notre moral et continuons à vous inonder d'articles et de programmes, dont nous nous 
efforçons de maintenir le niveau de qualité au plus haut. 


Voici pour ce numéro un programme chargé : un décrypteur de Paul Franceschi bien pratique pour 
ne pas rester bloquer dans les jeux d'aventures. Sans arriver aux 11 millions de décimales déjà 
connues, vous calculerez x avec Michel Dominique. 


Côté graphique, deux contributions : Patrick Quettier et Roland Jost, pour rêver en HGR... 
Etudes théoriques : Yvan Koenig s'est penché sur les ROMSs de la ligne Apple et Patrice Neveu a 
désassemblé RWTS. | 


Théorique aussi et d'une utilisation immédiate les 36 pistes de B. Toméno. Plus rare, une 
contribution en WPL de Véronique Schmitt. 


Enfin, pour convertir vos fichiers Pascal en des fichiers DOS, “Lirpastext” de Jean-Claude 
Lengrand. 


Nouvelles progressions sur le Macintosh : Jean-Luc Bazanegue a mis au point un accessoire qui 
devient vite indispensable : enfin pouvoir effacer des fichiers depuis une application... Marianne 
Sutz, également une habituée de nos colonnes, vous présente une instruction méconnue du MSBasic 
2.0 : “Library”. Côté pédagogie, nous retrouvons Gérard Michel avec le fonctionnement de fenêtres 
de saisie. 

Bien sûr vous retrouverez nos rubriques habituelles avec Alexandre Duback, Jean-Michel 
Gourévitch, Alexandre Avrane et Olivier Herz. 


Hervé Thiriez 


Photo de couverture : nouvelle imprimante Apple ImageWriter ][ 


Ont collaboré à ce numéro : Alexandre Avrane, Jean-Luc Bazanegue, Michel Dominique, Alexandre Duback, Paul 
Franceschi, Jean-Michel Gourévitch, Olivier Herz, Roland Jost, Yvan Koenig, Jean-Claude Lengrand, Gérard 
Michel, Patrice Neveu, Patrick Quettier, Véronique Schmitt, Marianne Sutz, B. Toméno. 

Directeur de la publication, rédacteur en chef : Hervé Thiriez. 

Rédacteurs : Alexandre Avrane, Olivier Herz. 

Siège social : Editions MEV - 49, rue Lamartine - 78000 Versailles. Tél. : (1) 39.51.24.43. 

Publicité : Editions MEV. 

Diffusion : N.M.P.P. 

Impression : Rosay - 47, avenue de Paris - 94300 Vincennes. Tél. : (1) 43.28.18.63. 
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Conversion Pas 
Jean-Claude Lengrand bs 


. ransformer des fichiers Pascal en des 200 SC = AD + 5: REM AD. DU NUMERO DE S 


fichiers DOS, tel est l'objet du ECTEUR 
programme présenté ici : Lirpastext. Les 210 OD = AD + 16: REM AD. DU DERNIER DR 
fichiers PASCAL en question peuvent IVE UTILISE 


être des FILE OF CHAR (TEXT au sens du 220 ND = AD + 2: REM AD.DU FUTUR DRIVE 
langage PASCAL) de deux types différents (selon 230 S = 0: DIM S1%(10),52#(10): REM POU 


qu'ils ont ou non été créés par l'éditeur, R LA SUBSTITUTION DE CARACTERES 
c'est-à-dire qu'ils ont ou non le suffixe .TEXT)ou 240 TEXT : HOME : PRINT "TRANSFERT D'UN 
des FILE OF STRING. Les premiers sont FICHIER DE CHARACTERES" 

convertis en fichiers DOS 3.3 à accès séquentiel, 250 PRINT "PASCAL SUR UNE DISQUETTE BASI 
les seconds en fichiers DOS 3.3 à accès direct. Au C": PRINT 

passage, certaines conversions de caractères 260 PRINT "METTEZ LA DISQUETTE CONTENANT 
peuvent être effectuées (remplacement des virgules USERNWTS" 

par des blancs, par exemple). Pour utiliser 270 PRINT "DANS LE DRIVE 1 ET FAITES <RE 
Lirpastext, il faut connaître le numéro de bloc de TURN>" 


début et la longueur du fichier sur la disquette 280 GET W$: PRINT : PRINT 
PASCAL, ce que l'on voit immédiatement sur le 290 PRINT DO$;"BLOAD USERNTS.CODE, A"; AD; 





catalogue en Pascal. Les messages du programme ",D1" 
Basic en constituent le mode d'emploi. 300 PRINT "METTEZ LA DISQUETTE PASCAL A 
LI "” 
310 PRINT "DANS LE DRIVE 2 ET FAITES <RE 
TURN>" 


320 GET W$: PRINT : PRINT 


330 PRINT "METTEZ LA DISQUETTE BASIC DES 
Programme LIRPASTEXT Rice fade 


340 PRINT "DANS LE DRIVE 1 ET FAITES <RE 


10 REM LIRPASTEXT TURN>" 
20 REM RECOPIE UN "FILE OF CHAR" PASCAL 350 GET W$: PRINT : PRINT 
30 REM OU UN FILE OF STRING PASCAL 360 HTAB 1: VTAB 4: CALL - 958 
40 REM SUR UN FICHIER SEQUENTIEL BASIC ( 370 INPUT "PREMIER BLOC À LIRE=";PB 
FILE OF CHAR) | 380 IF PB < O0 OR PB > 279 THEN PRINT BI 
50 REM OU À ACCES DIRECT BASIC (FILE OF $: GOTO 370 
STRING) 390 INPUT "NOMBRE DE BLOCS À LIRE=";NB 
60 REM LENGRAND, LE 21/12/82 400 IF NB < 0 OR NB > 279 THEN PRINT BI 
70 REM $: GOTO 390 
80 HIMEM: 38090 410 INPUT "EST-CE UN FILE OF STRING (O/N 
90 AD = 38091 ) PmzsS 
100 DQO$ = CHRS$S (4):BIS$ = CHRS$S (7) :DLS$S 420 IF LEFTS$ (S$,1) = "N" THEN S$ = "N" 
= CHRS$S (16) : PRINT "CE DOIT ETRE UN FILE OF CHA 
110 DIM S(15),S1(2) R": GOTO 480 
120 FOR I = 0 TO 15: READ S(I): NEXT I 430 IF LEFT$ (S$,1) < > "O" THEN PRIN 
130 REM LISTE DES SECTEURS BASIC CORRES T BI$: GOTO 410 
PONDANT 440: SS = "ONSTS = NMENS = 1 
140 REM AUX SECTEURS PASCAL 0,1,2,... 450 INPUT "LONGUEUR DECLAREE POUR LES CH 
150 DATA 0,14,13,12,11,10,9,8,7,6,5, 4,3 AINES ? ";LM 


PPS PA 1 460 GOTO 570: REM .CE NE. PEUT PAS ETRE U 
160 BU = AD + 21: REM 
170 PG = AD + 279: REM 

AMME DE LECTURE 





SEST-CE UN FICHIER .TEXT (O/N) 


180 ER = AD + 13: REM AD-DU CODE ERREUR 450 LF LEÆEFZS (25,1) = VO" THEN T$ = "O" 
190 TR = AD + 4: REM AD. DU MIMERO LE F SUPO 528 
ISTE SUD 27 LEFTS ES 2) = “"N" THEN TS = "N" 
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510 
520 


530 


540 


550 


560 


570 


580 


590 


600 


610 


620 
630 


640 
650 


660 
670 
680 
690 


700 
710 


720 


730 


735 


740 
750 


760 


770 
780 


790 


800 
810 


820 
830 
840 


: GOTO 520 

PRINT BIS$: GOTO 480 

PRINT : PRINT "VOULEZ-VOUS 
) DC 

PRINT “1 RECOPIER TOUS LES CARACTERE 


(1 OU 2 


S MEME NULS" 
PRINT "2 VOUS ARRETER AU PREMIER CAR 
ACTERE NUL" 
PRINT : PRINT "NB:CARACTERE NUL (S$00 


)= FIN DE FICHIER" 
INPUT "";N$: IF N& < > l AND N& < 
> 2 THEN PRINT BIS$;: GOTO 560 


HOME : PRINT "A L'OCCASION DU TRANSF 
ERT, VOUS" 
PRINT "POUVEZ REMPLACER CERTAINS CAR 


ACTERES" 

PRINT "PAR D'AUTRES (MAXI:10 SUBSTIT 

UTIONS) " 

: PRINT "NBRE DE SUBSTITUTIONS DEMAN 

DEES ?" 

PRINT "(PAR DEFAUT, LES ";S;" SUBSTI 
TUTIONS" 

PRINT "PRECEDENTES) " 

PRINT : INPUT "INDIQUEZ LE NOMBRE OU 
<RETURN>";W$ 

IF W$ = "" GOTO 750 

W= VAL (W$): IF W < 0 OR W > 10 TH 

EN PRINT BIS: GOTO 630 


S = W: IF S = 0 GOTO 810 

FOR I = 1 TO S 

HOME : PRINT "POUR LE CARACTERE ";l; 
INPUT "CODE ASCII DECIMAL INITIAL="; 


S1%(I) 

PRINT "CODE ASCII DECIMAL FINAL :" 
INPUT "(OU -1 POUR ELIMINER LE CARAC 
TERE)";S2%(I) 

IF S1$%(I) < 0 OR S1#%(I) > 127 THEN 
PRINT BI$: GOTO 680 

IF S2%(I) < - 1 OR S2%(I) > 127 THE 
N PRINT BIS$: GOTO 680 

IF (S2%(I) = - 1) AND (S$ = "O") TH 
EN PRINT BIS$: GOTO 680 


NEXT I 

HOME : PRINT "RAPPEL DES SUBSTITUTIO 
NS:": PRINT 

IF S = O0 THEN PRINT "AUCUNE SUBSTIT 


UTION": PRINT : GOTO 810 

FOR I = 1 TOS 

PRINT "CHR$S(";S1%(I);")="; CHRS$S (51% 
(I) ) ; 

PRINT " -> CHRS(";S2%(I);")=";: 
(S23(I)) 

NEXT I: PRINT 

PRINT "NOM DU FICHIER BASIC A CREER: 


CHRS 


INPUT " "?FIS$S 
IF S$ = "N" GOTO 860 
PRINT "CE FICHIER DEVRA ETRE EXPLOIT 


E AVEC UN" 
850 PRINT "RECORD LENGTH=";LM + 2;" (ACC 
ES DIRECT)" 
860 PRINT : PRINT "<ESC> POUR CORRIGER U 
NE ERREUR" 
870 PRINT "<RETURN> POUR LANCER LA COPIE 
880 GET W$: IF W$ < > CHRS$S (27) AND W$ 
< > CHR$S (13) THEN PRINT BIS: GO 
TO 880 
890 IF W$ = CHR$S (27) THEN HOME : GOTO 
360 
900 IF T$ = "O" THEN PB = PB + 2:NB = NB 
- 2: REM SUPPRIME LES 2 PREMIERS B 
LOCS 
910 POKE AD + 12,1: REM FONCTION LECTUR 
E 
920 LA = 13: REM ASCII DU DERNIER CARAC 
TERE LU 
930 NS = 0: REM COMPTAGE DES CARACTERES 
POUR LES FILE OF STRING 
940 HOME : PRINT "VOUS ALLEZ VOIR DEFILE 
R CE QUI" 
950 PRINT "S'ENREGISTRERA SUR VOTRE DISQ 
UETTE BASIC": PRINT 
960 PRINT : PRINT DOS$;"MON O" 
970 PRINT : PRINT DQS$;"OPEN ";FIS$;",D1l" 
980 PRINT DO$;"WRITE ";FIS 
990 FOR I = 1 TO NB 
1000 BL = PB + I - 1: REM NUMERO DE BL 
(6; 
1010 PI = INT (BL / 8): REM NUMERO DE 
PISTE 
1020 S1(1) = 2 * (BL - 8 * PI):S1(2) = S 
1(1) + 1: REM NUMERO DES SECTEURS 
PASCAL 
1030 POKE TR,PI: REM AFFICHE LA PISTE 
1040 FOR J = 1 TO 2: REM POUR LES 2 PAR 
TIES DU BLOC 
1050 ST = S(S1(J)) 
1060 POKE SC,ST: REM AFFICHE LE SECTEUR 
1070 POKE OD,1: REM AFFICHE LE DERNIER 
DRIVE 
1080 POKE ND,2: REM AFFICHE LE DRIVE À 
UTILISER 
1090 CALL PG: REM APPELLE USERWTS 
1100 IF PEEK (ER) = 0 GOTO 1140 
1110 PRINT DO$;"CLOSE ";FIS$ 
1120 PRINT "ERREUR DE LECTURE NUMERO "; 
PEEK (ER) 
1130 GOTO 1410 
1140 FOR K = O0 TO 255 
1150 IF ( PEEK (BU + K) < > 16) OR (TS 
= "N") OR (LA < > 13) OR (S$ = "O" 
) GOTO 1190 
1160 NI = PEEK (BU + K + 1) - 32 
1170 IF NI > O0 THEN FOR II = 1 TO NI: P 
RINT " ";: NEXT II 
1180K=K +2 
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Re Re ee à 


1190 LA = PEEK (BU + K):LB = LA 
1200 IF LA = 0 AND N$% = 2 THEN K = 255:J 
= 2:1 = NB: GOTO 1340 

1210 IF S = 0 OR (5$ = "O" AND (NS = 0 O 
R NS > LS)) GOTO 1260 

1220 FOR L = 1 TO S 

1230 IF LA. < > S1%(L) GOTO 1250 

1240 LB = S2%(L):L =S 

1250 NEXT L 

1260 IF S$ = "O" GOTO 1290 


1270 IF LB > 


— 1 THEN PRINT CHR$ (LB) 


1280 GOTO 1340 
1290 IF NS = 0 THEN LS = LB: GOTO 1310: 


REM LONGUEUR EFFECTIVE DE LA CHAIN 
E 

IF NS < = LS THEN PRINT CHRS$S (LB 
); 

IF NS = LS THEN PRINT : 
REM ENVOI D'UN RETURN 


GOTO 1320: 


1315 IF NS > LS THEN PRINT CHR$ (0); 
1320 NS = NS + 1 





IF NS > LM + 1 THEN NS = 0: REM D 
EBUT D'UNE NOUVELLE CHAINE 


Source USERWTS.ASS 


& QG MN ba 


o © — a Un 


10 
11 
12 
13 
14 
15 
16 
27 
18 
19 
20 


21 
22 
2 
24 
25 
26 
27 
28 
29 


(Assembleur LISA 1.5) 


ORG !38091 
OBJ $1000 
;MODE D'EMPLOI: 
;FAIRE LES MODIFICATIONS NECESSAIRES À 
LA TABLE IOB: 
NUM. DE PISTE ET DE SECTEUR 
CODE DE L'OPERATION À EFFECTUER 
ET LANCER L'EXECUTION A L'ADRESSE PGM. 


Se Ve Ve 


10B HEX O1 ; IMPOSE 
IBSLOT HEX 60 :16*SLOT 6 
IBDRVN HEX O1 DRIVE 1 


IBVOL HEX 00 
IBTRK HEX 00 
IBSECT HEX 00 
IBDCTP ADR IOB+17 
IBBUFF ADR IOB+21 
ADR $0000 
IBCMD HEX 00 
IBSTAT HEX 00 
IBSMOD HEX 00 


; NUMERO DE VOLUME 
; NUMERO DE PISTE 

; NUMERO DE SECTEUR 
: ADRESSE DE LA DCT 


:INUTILISE 

; CODE COMMANDE 

; CODE ERREUR 

; NUMERO DE LA 
DISQUETTE EFFECTIVE 
IOBPSN HEX 60 ; DERNIER SLOT UTILISE 
IOBPDN HEX O1 ;ET DERNIER DRIVE 
DEVTPC HEX O001EFD ;4 BYTES IMPOSES 
BUFFER HEX 00 ;LER OCTET DU BUFFER 
; LES 255 SUIVANTS 
HADR HBY  IOB 

LADR BYT 1OB 

PGM LDA HADR 


NEXT K 

NEXT J 

NEXT I 

PRINT 

PRINT DO$;"CLOSE ";FI$ 

PRINT DQO$;"NOMON O" 

PRINT : PRINT : PRINT BIS$S;BIS;BI$;" 

C'EST FINI..." 

PRINT : PRINT "<RETURN> POUR COPIER 
UN AUTRE FICHIER" 

PRINT "OU METTEZ LA DISQUETTE UTILI 
TAIRE" 


PRINT " DANS LE DRIVE 1 ET FAITES 
<ESC>" 

PRINT " POUR REVENIR AU MENU GENE 

RAL" 


PRINT "OU UNE AUTRE TOUCHE POUR ARR 
ETER" 

GET W$: PRINT 

IF W$ = CHR$ (13) THEN HOME : GOT 
O 300 

IF W$ = CHRS$S (27) THEN PRINT DO$; 
"RUN MENU, D1" 


END 
oo 
JSR $03D9 ; APPELLE RWTS 
LDA IBSLOT ;MAJ DERNIER SLOT 
STA IOBPSN ;ET DERNIER DRIVE 
LDA IBDRVN 
STA IOBPDN 
BCS  NOTOK 
LDA #10 ;MET 0 SI OK 
STA  IBSTAT 
NOTOK RTS 
ERK 
PAU 
DCM "BSAVE USERWTS.CODE, 
A$1000,L$135" 
END 





Récapitulation USERWTS.CODE 


1000- 
1010- 
1020- 
1030- 
1040- 
1050- 
1060- 
1070- 
1080- 
1090- 
10A0- 
10B0- 
10C0- 
10D0- 
10E0- 
10F0- 
1100- 
1110- 
1120- 
1130- 


01 60 01 00 00 00 DC 94 EO 94 00 00 00 00 00 60 
01 00 01 EF D8 00 00 00 00 00 00 00 00 00 00 00 
08 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 00 00 08 00 00 00 00 00 
00 00 00 00 00 02 00 00 00 00 08 00 00 10 00 1Q 
00 00 00 00 00 00 88 80 00 00 00 80 00 00 00 80 
00 00 20 00 10 00 00 00 00 08 00 00 00 00 80 80 
00 00 00 00 00 00 00 02 00 00 00 00 00 00 00 09 
FE FF D7 FF FF FF DF FF FF FF FF FF FF FF FF FE 
FFE EF FF FF FF DF EF FF FF FF DF FF EF FF FF EE 
FF DF EF FF FF FF FF FF F7 FF FF FF FF FF FF FE 
FE FF FF FE FF FF FF FF FF FF FF FF FF FF EF FE 
EF FF FF FF FF FF FF F7 FF FF FF FF FF FF FF EE 
DF FE FF FF FF FF EF FF FF FF FF FF FF FF FF EE 
FE FF FF FF FF FF DF FF 7F FF FF FF FF FF FF EE 
DEF FF FF FF FF FF FF FF FF FF FF FF FF FF EF F® 
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0@ 
00 00 00 00 00 94 CB AD EO 95 AC E1 95 20 D9 03 
AD CC 94 8D DA 94 AD CD 94 8D DB 94 BO 05 AS 0@ 
8D D8 94 60 00 











Un éditeur HGR : 
Roland Jost 


es traitements de texte 
classiques ne sont pas 
prévus pour l'écriture 
de textes scientifiques; 
il est à la rigueur possible d'écrire 
des formules mathématiques avec 
indices et exposants. Par contre, 
on ne peut dessiner facilement 
des formules chimiques ou des 
schémas électroniques, ou encore 
rajouter des commentaires sur des 
pages graphiques . 
C'est pourquoi nous avons écrit 
EDIGRAPH. Nous aurions pu 
utiliser HRCG de TOOLKIT ou 
HAIFA (Pom's 5) ou HGRECR 
(Pom's 15), mais nous avons 
préféré “écrire un programme 
entièrement en Basic pour mieux 
faire comprendre la gestion du 
graphisme Apple et permettre des 
modifications aisées par l'utilisa- 
teur final. 


EDIGRAPH est loin d'avoir les 
possibilités classiques d'un 
traitement de texte, maïs il permet 
par contre : 

+ l'écriture de textes et de formes 
en page graphique; 

+ le passage aisé d'un type de 
caractères à un autre; 

+ l'affichage de caractères en 
mode inverse, en double 
hauteur ou soulignés; 

+ caractères en indice obtenus 
par CTRL-I ou bouton de 
manette O (Apple J[), ou 
pomme ouverte ou TAB 
(Apple //e), 

* caractères en exposant obtenus 
par CTRL-X ou bouton de 
manette 1 (Apple J[), ou 
pomme fermée (Apple //e); 

* sauvegarde et rappel d'une 
page graphique; 

* manipulation de zones écran; 
EDIGRAPH permet : 

1) de déplacer ou recopier 
une zone ÉCran; 

2) de mettre en mode inverse 
une partie de l'écran; 

3) d'effacer une zone-écran; 

4) de stocker une zone-écran 





Pom's n° 21 


dans un tampon d'où elle 
pourra être rappelée à 
volonté. Le tampon pourra 
être sauvé sur disquette. 

+ adaptation aisée aux besoins 
propres d'un utilisateur , car 
étant écrit en Basic, les 
modifications logicielles sont 
simples. On peut aussi 
modifier les polices de 
caractères ou rajouter de 
nouvelles formes. 


SYNTHESE du para 










O-8r + Mg 


cho 





Affichage 
de caractères 


Gestion d'une 

page graphique 

La page graphique de l'Apple est 
divisée en 192 lignes et 280 
colonnes. Les colonnes sont 
regroupées par 7, chaque point 
correspondant à un des 7 bits 
d'un octet, dont le 8ème bit 
contient le code couleur. L'écran 
HGR est divisé en 3 zones de 8 
groupes de 8 lignes. Par analogie 
avec la page TEXTE, la page 
graphique peut donc être 
considérée comme comportant 


-réthoxy benzhydrol 


éméthode de GRIGNARD) 


éther 
— 


OCH3 
cHa0-{O)}-cHo + Oneer —+ 


Edigraph 


964 cases (24 lignes * 40 
colonnes) de 7 * 8 points 
élémentaires. On pourra inscrire 
un caractère dans chaque case. 


Codage d'un caractère 


Le caractère est dessiné dans une 
matrice 8 * 8, puis le codage est 
fait ligne par ligne. Par exemple, 
la lettre B sera codée comme suit 
sur huit octets. 





Or 


H-C-0M3Br 


binaire hex 
oct.l oo 1 
oct.2 DÉC 22 
oct. DÉC 22 
oct.4s DOG 1 
oct.5s Go 22 
oct.6 CHOC 22 
oct.7 DOG 1 
oct.8 GG GG 00 


vous remarquerez que la lettre est 
inversée. 


Ecriture d'un caractère 
en page HGR 


Pour écrire un caractère, il faut 
afficher le contenu des 8 octets 
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qui servent à le définir les uns 
sous les autres, à l'endroit voulu. 
Il faut donc poker dans les 
bonnes adresses de la page 
mémoire. 

L'adresse du sommet gauche 
d'une case est obtenue par la 
formule : 

BA = Z2 + 128 * ZV - 
984 * INT ((ZV-1)/8) + 
ZH avec : 

Z2 = 8127 pour la page 1, 16255 
pour la page 2 

ZV = position verticale (0 <= ZV 
<= 23) 

ZH = position horizontale (0 <= 
ZH <= 39) 

L'écriture en mémoire HGR des 
huit octets du caractère se fait par 
la boucle : 


FOR J = 0 TO 7: POKE 
BA + 1024 * J, PEEK 
(ZB + ZC * 8 +J) 


NEXT 


ZB + ZC * 8 correspond à la po- 
sition du caractère dans la table 
chargée à l'adresse ZB. 


Pour un affichage en mode 
inverse, on effectue au préalable 
un AND sur chaque octet:. Pour 
celà, faire 255 - PEEK (ZB+ZC * 
8+J). 

Pour un affichage en double 
hauteur, on affiche deux fois 
verticalement le même octet. 


Les jeux de caractères 


Les caractères utilisés par 
EDIGRAPH sont semblables à 
ceux du Toolkit ou de HAIFA. 
Cinq polices de caractères sont 
stockées dans le fichier binaire 
SET chargé à l'adresse $3000 
(12288) : 


$3000-$32FF : caractères fran- 
çais (avec les minuscules accen- 
tuées) 

$3300-$35FF : caractères grecs 
et symboles mathématiques 
(racine, intégrale,..) et 
chimiques (liaisons simple, 
double, triple, flèches de 
réaction, etc.) 

$3600-$38FF : caractères réduits 


en matrice 3*5 pour les indices et 
exposants 


$3900-$3BFF caractères larges 
(avec minuscules accentuées) 
$3C00-$3EFF caractères itali- 
ques (avec voyelles accentuées) 
Une police de caractères est 
activée par la frappe de ESC, 
suivi du numéro (1-5) de la 
police. 

Si l'on veut taper un seul 
caractère des polices 2 ou 3 on 
pourra utiliser 

CTRL G : caractère grec ou 
graphique 

CTRL I ou bouton manette O ou 
G : caractère en indice 

CTRL X ou bouton manette 1 ou 
é : caractère en exposant. 


ARE n = 


34: 3. 
A1 JÉCHNOPORST 
Res 


Police n° 
TRE 


Le traitement de 
blocs 


EDIGRAPH permet le traitement 
de zones rectangulaires de l'écran 
graphique . Ces 'blocs' pourront 
être déplacés, dupliqués, effacés, 
inversés, sauvés sur disquette et 
réincorporés à d'autres pages 
graphiques. 

Déplacer le curseur au coin 
supérieur gauche de la zone à 
traiter et taper ESC B. Le curseur 
se réduit à un point. 


a) saisie du bloc dans le 
tampon : Déplacer le curseur au 


:;5<=>7àABCDEFG 
_Sabcdefahijkimn 


LI 


2 'ABTAEST 


Do Z\ : _— 
] Men SR NU TAL NS LAN MR SNA RC 


opaqrstuuuxuyz 


FAIT n°5 


fHID2IITEZHT : 


2 89::<=>72aAECDEFG 
“äbcdefahi i nes 


<=>TSAGSCHEFE 


4X JRE jme TÜYVUNPZEN IT ècdes Dir £ FE RI 





DhQrSELVExCzBDEe+E 


La table de formes 


Pour afficher des symboles plus 
complexes, EDIGRAPH utilise 
aussi une table de formes 
classique. Elle est chargée à 
l'adresse $6000 et comporte 
provisoirement 2 formes 
chimiques (benzène et 
cyclohexane) et 6 formes 
d'électronique (résistance, inter- 
rupteur, générateur, etc.). 

Une forme donnée est appelée par 
ESC suivi de F (ou G) et du 
numéro de la forme. F trace la 
forme horizontalement (ROT = 
0), : la trace verticalement (ROT 

D. 


coin inférieur droit du bloc. Taper 
ESC W pour recopier le contenu 
de la zone ainsi délimitée dans le 
tampon. Donner un nom de 
fichier pour sauver le bloc sur 
disquette ( le fichier s'appelera 
BLOC.nom), sinon taper simple- 
ment .1. 


b) mettre une zone écran em 
inverse : le curseur ayant été 
amené au coin inférieur droit » 
taper ESC N. 


c) effacer une zone : comme 
précédemment, mais taper ES@ 
| &A 
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d) déplacer un bloc : Taper ESC 
B après positionnement du 
curseur au coin inférieur droit. 
Déplacer le curseur jusqu'à la 
nouvelle position du bloc et taper 
ESC D. La zone initiale sera 
effacée. 


e) copier un bloc : comme ci- 
dessus, mais taper ESC C à la 
nouvelle position. L'ancienne 
zone ne sera pas effacée. Une 
autre possibilité de duplication est 
de rappeler la zone tampon . 


f) rappel d'un bloc : Ce 
traitement est le seul à ne pas être 
activé par ESC B. Amener le 
curseur à la position souhaitée 
(correspondant au coin supérieur 
gauche du bloc) et taper ESC K. 
La frappe de : copiera la zone 
tampon, sinon donner le nom du 
fichier à rappeler de la disquette. 


Remarques : 

La procédure de traitement des 
blocs est lente, donc patience. 
Aucun test n'est effectué pour 
savoir si le bloc recopié pourra se 
loger à sa nouvelle place. 


Les commandes 


EDIGRAPH utilise trois niveaux 
d'analyse des commandes : 


1: commandes par la touche 
CTRL , principalement pour le 
déplacement du curseur , et pour 
obtenir les caractères non 
disponibles au clavier du ][+ 


2:commandes activées par 
ESC : changement de police, 
changement du mode d'affichage 
(normal,double hauteur,inverse). 


3 : enfin les touches F et G tapées 
après ESC, permettent d'afficher 
la forme dont le numéro suit. 

Les touches G et & permettent 
respectivement l'écriture en indice 
ou en exposant. 


Fonctions activées par la touche ESC 


ESC 1 caractères français 

ESC2 caractères grecs et graphiques 

ESC3 indices ou exposants 

ESC 4 caractères épais 

ESC5 caractères italiques 

ESCB activation du mode BLOC" 

ESCC copie d'un bloc à la nouvelle position du curseur 
ESCD deplacement d'un bloc à la nouvelle position du curseur 
ESCE effacement d'un bloc-écran 

ESCN négatif d'un bloc 

ESCF tracé d'une forme avec ROT=0. A faire suivre du numéro de 


la forme 

ESC G tracé d'une forme avec ROT=-16. Faire suivre du numéro de 
la forme 

ESCH vide a HGR et ramène le curseur au point supérieur 
gauche 


ESCI affiche les instructions. 

ESCL chargement d'une image graphique en page 2. 
ESCP  hardcopy 

ESCQ sortie du programme. 

ESC S sauvegarde de la page graphique 

ESC V bascule vidéo normale/inverse 

ESCY bascule hauteur normale/double. 

ESC - bascule soulignement 

ESC / affiche le symbole ‘intégrale’ 


Fonctions activées par la touche contrôle 


CTRLD affiche le catalogue de la disquette. 

CTRLG le prochain caractère frappé sera pris dans la police 2. 

CTRLH déplacement du curseur vers la gauche. Avantageusement 
remplacé par 

CTRLI le prochain caractère sera placé en indice (police 3A) 

CTRLJ déplacement du curseur vers le bas. (utiliser U sur le //e) 

CTRLK déplacement du curseur vers le haut. (utiliser f sur le //e) 

CTRLS bascule majuscule/minuscule (utile seulement sur le ][+) 

CTRLX le prochain caractère sera en exposant (police 3B) 

CTRL accent circonflexe. Après la frappe de CTRL , le curseur 
recule d'une position. Puis taper la voyelle désirée 


Des caractères non disponibles sur le clavier du J+(éè[]ùç°) 
peuvent être obtenus à l'aide de Shift M, Ctrl Shift M, Ctrl N, Ctrl O, 
Ctri Z. Faites l'essai en mode minuscule et majuscule. 


Structure du programme 


L 200-390 sous-programmes d'écriture de caractères en mode 
graphique, placés en début du programme pour 
accélérer l'exécution 

L 400-530 sous-programmes de traitement des blocs 

L 600-790 gestion de l'affichage 

L 900-990 le mode d'écriture inverse, normal ou double hauteur 


est affichée dans le coin inférieur droit de l'écran 
L 1000-1900 positionnement et affichage des formes 
L 3000-3100 passage en mode HGR2 sans effacement 
L 4000-4100 remise à zéro de certaines variables 
L 5000-5200 sauvegarde de la page graphique 2 sur disquette 
L 6000-6200 rappel d'une image graphique en page 2 
L 7000-7080 sauvegarde d'un bloc 
L 8000-8070 lecture d'un bloc 
L 9000-9100 traitement des erreurs DOS 
L 10000-11000 analyse des touches frappées. Touches CTRL 
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L 12000-14000 commandes activées par la touche ESC 
L 15000-18000 appel du programme de hardcopy (à installer par 


l'utilisateur) 


L 18000-19000 saisie du numéro de forme 

L 20000-20210 affichage des commandes 

L 24000-26030 initialisation . Chargement des tables (caractères et 
formes). Pour une hardcopy, rajouter ici le chargement 
du sous-programme nécessaire 


ligne 30000 
GOTO 30000 


Occupation de la mémoire 
$800  EDIGRAPH 
$2FFF HIMEM 
$3000 police n°1 
$3300 police n°2 
$3600 police n°3 
$3900 police n°4 
$3C00 police n°5 
$4000 page graphique 
$6000 table de formes 
$7000 tampon 
$9000 fin du tampon 


EDIGRAPH à intentionnellement 
été écrit en BASIC sans utiliser 
de sous-programmes assembleur, 
pour permettre à chacun de 


Programme Edigraph 


40 HIMEM: 12287 


redémarrage à chaud, sans perte des variables, par un 


l'adapter à ses propres besoins. Il 
souffre donc de la lenteur de ce 
langage, particulièrement pour 
l'écriture en double hauteur et le 
traitement des blocs. 

Pour obtenir malgré tout une 
vitesse d'exécution acceptable, 
tous les programmes de tracé ont 
été placés en tête du programme 
et optimisés au maximum. Le 
BASIC est suffisamment rapide 
pour permettre une vitesse 
moyenne de frappe des caractères 
en taille normale. En mode 
double hauteur, l'affichage est 
plus lent et pourrait bénéficier 
d'un traitement en assembleur. La 


K (ZX + 
+ 1l:BA 


260 ZV = ZV - l:BA = 
NK TO 7: POKE BA + Z1(J),21% - 
INT (J / 2)): NEXT :2V = ZV 


lenteur d'exécution qui n'est pas. 
un handicap lors de la phase 
d'apprentissage pourra etre 
supprimée si vous disposez d'un 
compilateur. 

Remarques 

Sur un Apple ][+ les manettes 
doivent être connectées. Sinon, 
supprimer la ligne 10040. 
EDIGRAPH a été développé sur 
un J][+ et ses commandes 
adaptées à son clavier. Il utilise 
les possibilités supplémentaires 
du clavier du //e, mais l'utilisateur 
préfèrera peut-être modifier 
l'attribution de certaines touches. 
Pour utiliser EDIGRAPH, faire 
RUN EDIGRAPH. Les fichiers 
SET et FORMES4 sont chargés 
par le programme. 

En cas de ‘plantage’, taper CTRL 
RESET, puis GOTO 30000. 
L'image HGR en mémoire n'est 
pas altérée. Le curseur est 
repositionné dans le coin 
supérieur gauche de l'écran. 


FOR J = 
PEE 


FN B1l(ZH) : 


FN Bl(ZH): FOR J = 8 TON 


100 REM #AARARAAARAARARAARARAARARAHR EX T + 8: POKE BA + 21 + (TJ = 8),21% 3 
110 REM * = PEEK (ZX + INT (J / 2)): NEXT : RE 
120 REM * EDIGRAPH - V.2 + TURN : REM INVERSE ET DOUBLE HAUTEU 
130 REM * * R 
140 REM * R.JOST - 1985 C3 270 BA = FN B1l(ZH) 
150 REM * : 280 CZ = PEEK (BA + ZZ) 
160 REM ARAARARARAARHARRARRAREHÉHEH EEE 290 ZA _ 12799 + 28 + (FL € > 0) : POKE 
170 GOSUB 24000: GOSUB 20010: GOSUB 3020 BA + ZZ, PEEK (ZA): RETURN : REM AFA 
:ZE = 49: GOSUB 910: GOTO 10000: END ICHAGE DU CURSEUR 
200 300 POKE BA + Z2Z,CZ: RETURN : REM EFFAQ 
210 REM SOUS-PROGRAMMES DE TRACE DE LET EMENT DU CURSEUR 
TRES 400 REM TRAITEMENT DES BLOCS 
220: ‘: 410 DX = NX - X:DY = NY - Y +1 
230 FOR J = NK TO NJ: POKE BA + Z1(J), P 420 GOSUB 300 
EEK (ZX + J): NEXT : RETURN : REM 430 ZW = ZV 
MODE NORMAL 440 FOR K = 0 TO DY::ZV = Y + K:BA = FM 
240 FOR J = NK TO NJ: POKE BA + Z1(J),21 B1(X):ZV = ZW + K:BB = FN B1l(ZH) 
& — PEEK (ZX + J): NEXT : RETURN : 450 FOR I = 0 TO DX:BC = BA + I:BD = BB 
REM MODE INVERSE +I 
250 ZV = ZV - 1:BA = FN Bl(ZH): FOR J = 460 FOR J = 0 TO 7:CH = PEEK (BC + Z1(®% 
NK TO 7: POKE BA + Z1(J), PEEK (ZX )) 
+ INT (J / 2)): NEXT :2V = ZV + 1:B 470 IF FL = 7 THEN TA = TA + l: POKE TA, 
A = FN B1l(ZH): FOR J = 8 TO NJ + 8: CH: GOTO 520 
POKE BA + Z1 * (J - 8), PEEK (ZX + 475 IF ZC = 67 THEN POKE BD + Z1(J),CH* 
INT (J / 2)): NEXT : RETURN : REM GOTO 520 
AFFICHAGE DOUBLE HAUTEUR 480 IF ZC = 68 THEN POKE BC + Z1(J),0- 
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POKE BD + Z1(J),CH: GOTO 520 

IF FL = 6 THEN TA = TA + l: POKE BD 
+ Z1(J), PEEK (TA): GOTO 520 

IF ZC = 78 THEN POKE BC + Z1(J),2Z1% 
- CH: GOTO 520 

IF ZC = 69 THEN POKE BC + Z1(J),0: 

GOTO 520 

NEXT : POKE - 16336, 

): NEXT : NEXT 

ZV = ZV + l:FL = 
W: RETURN 

600 : 

610 REM SOUS-PROGRAMME D'AFFICHAGE 

620 : 

630 Z = 
36) 

BA = FN B1l(ZH) 

IF ZC = 30 THEN ZC = 62: GOTO 660 

ZC = ZC - 32 + 32 * ((ZF = l) AND (Z 
C > 64 AND ZC < 97)) 
IF F1 = 1 THEN WB = 
IF F1 = 2 THEN WB 
IF F1 = 3 THEN WB = 
ZX = ZB + 8 * ZC 

IF ZM = 1 AND ZL = 1 THEN GOSUB 260 
: GOTO 740 

IF ZM = 1 THEN GOSUB 290: GOSUB 240 
: GOTO 740 

IF ZL < > 0 THEN GOSUB 250: GOTO 7 
40 

GOSUB 230 

NK = 2 * (F1 = 10): IF F1 = 10 THEN 
GOSUB 300:ZH = ZH - l: GOSUB 290:F1 
= 0 

BA = BA + 1 

ON ZH < 40 GOSUB 290 

ZH = ZH + l: IF ZH > 40 THEN ZH = l: 
ZV = ZV + 1 + (ZL = l): GOSUB 270 

IF ZH = 37 THEN PRINT CHRS$S (7); 

IF F1 < > 0 THEN ZB = WB:F1 = 0 
RETURN 

REM AFFICHAGE DU MODE DANS LA CASE 
40,24 

ZX = 12288 + 1536 * (ZL = 
ZE - 32) 

IF ZM = 1 THEN FOR J = 0 TO NJ: POK 

E 17399 + Z1(J),Z1% - PEEK (ZX + J) 
: NEXT : RETURN 

FOR J = 0 TO NJ: POKE 17399 + Z1(J), 
PEEK (ZX + J): NEXT : RETURN 

REM EFFACEMENT DE LA CASE 40,24 

BX = BA:BA = 17399: FOR J = 0 TO NJ: 
POKE BA + Z1(J), PEEK (ZB + J): NEX 
T :BA = BX: RETURN 

960 END 

1000 

1010 

1020 

1030 IF SH > 2 THEN 1070 


490 


500 


510 


520 PEEK ( - 16336 


530 0: GOSUB 270:2V = Z 


PEEK ( - 16336) - PEEK ( - 163 
640 
645 
650 


13824 
13826 
13056 


ZB:2B 
ZB:2B 
ZB:2B 


660 
670 
680 
690 
700 


710 


720 


730 
740 


745 
750 
760 


770 
780 
790 
900 


910 0) FES 


920 


930 


940 
950 


#AHAX 


REM DESSIN D'UN CYCLE ***4*# 


1040 


1050 


1060 


1070 
1080 


1090 
1100 


3000 
3010 
3020 


4000 
4010 
4020 


4030 


5000 
5010 
5020 
5030 
5040 


5050 


5060 
5070 
6000 
6010 
6020 
6030 
6040 


6050 
6060 
6070 
7000 
7010 
7020 
7030 
7040 


7050 


GOSUB 300:XZ2 = ZH * 7 -5+5%* (Z 

B = 13056 OR F1 = 1):YZ = ZV * 8 - 
16 * (F1 = 0) 

IF XZ < 1 OR YZ < 1 OR XZ > 256 OR 
YZ > 168 THEN RETURN 

DRAW SH AT XZ,YZ:ZH = ZH + 4 * (F1 
= 0):F1 = 0: GOSUB 270: RETURN 

REM ELECTRONIQUE 

GOSUB 300:XZ = ZH * 7 -6+2 * (Z 

C = 71) 

YZ=Z2V*X*8-5-3%* (ZC = 71) 

DRAW SH AT XZ,YZ:Z2H = ZH + 3 * (SH 
= 6 OR SH=7ORSH=8) + 4 * (S 

H = 4) + 5 * (SH = 5): GOSUB 270: 

RETURN ; 

REM *#*#*#**4 TEXT -> HGR2 ***#* 


POKE 49232,0: POKE 49234,0: POKE 4 
9237,0: POKE 49239,0: GOSUB 900: R 
ETURN 


REM **#**4 MISE À ZERO DES POINTEU 
RS *##+4%# 


ZE = 49:2F = 0:2M = 0:F1 = 0:2L = 


0:ZB = 12288:TA = 28676:F2 = 0:F3 
= 0:ZH = 1:ZV = l:FL = 0: RETURN 
REM 

REM ****#*# SAUVE PAGE GRAPHIQUE ** 


ONERR GOTO 9000 

PRINT CHRS$S (7);: GOSUB 300: TEXT 

: HTAB 1l: VTAB 23: CALL - 868: IN 
PUT "SAUVEGARDE DE LA PAGE ";N$: I 
F N$ = "" THEN 5060 

GOSUB 300: PRINT D$"BSAVE "NS$S",AS4 
000,L$1FF8": GOSUB 3020 

GOSUB 3020 

RETURN 


REM #***** CHARGE PAGE GRAPHIQUE ** 


ONERR GOTO 9000 

PRINT CHR$ (7);: TEXT : HTAB l: V 
TAB 23: CALL - 868: INPUT "CHARGE 
MENT DE LA PAGE ";N$: IF N$ = ""T 
HEN 6060 

PRINT D$"BLOAD "N$",A$4000" 

GOSUB 3020: GOSUB 290 

RETURN 


REM *#*#*#4 SAUVE UN BLOC ***** 


ONERR GOTO 9000 

PRINT CHRS$ (7);: TEXT : HTAB 1: V 
TAB 23: CALL - 868: INPUT "SAUVEG 

ARDE DU BLOC ";N$: IF N$ = "" THEN 
5060 | 

GOSUB 300 
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13 


14 





7060 


7080 
8000 
8010 
8020 
8030 
8040 


8050 
8060 
8070 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9065 
9070 
9080 
9090 
10000 
10010 
10020 
10030 
10040 
10045 
10050 


10060 


10070 


10080 
10090 
10100 
10110 


10120 


PRINT DS$"BSAVE "NS$S".BLOC,AS$ 
7000,L"(DX + 1) * (DY + 1) * 

8 + 97070 GOSUB 3020 

RETURN 


REM **#*#+* CHARGE UN BLOC ***** 


ONERR GOTO 9000 

PRINT CHRS$S (7);: TEXT : HTAB l: V 
TAB 23: CALL - 868: INPUT "CHARGE 

MENT DU BLOC ";N$: IF N$ = "" THEN 
5060 

PRINT D$"BLOAD "N$".BLOC,A$7000" 
GOSUB 3020 


RETURN 

REM TRAITEMENT ERREURS 

TEXT : HOME 

ER = PEEK (222):EL = PEEK (218) 
+ 256 * PEEK (219) 

IF ER = 4 THEN PRINT "DISK PROTEG 
E EN ECRITURE": GOTO 9080 

IF ER = 6 THEN PRINT "CE FICHIER 


GOTO 9080 
PRINT "ERREUR 1/0" 


N'EXISTE PAS": 

IF ER = 8 THEN 
: GOTO 9080 

IF ER = 9 THEN PRINT 
": GOTO 9080 

IF ER = 255 THEN PRINT "TAPER UNE 
TOUCHE POUR CONTINUER": GOTO 9080 

PRINT "ERREUR "ER" DANS LA LIGNE " 

EL: END 

POKE 216,0: GET RS$: HOME 

GOSUB 3020: GOTO 10030 


"DISK REMPLI 


REM *** ANALYSE DES COMMANDES *** 
WAIT - 16384,128,127:2C = PEEK ( 
- 16384) - 128: POKE - 16368,0 
F1 = F1 + ( PEEK ( - 16287) > 127) 

+ 2 *. ( PEEK ( - 16286) > 127) 


IF ZC = 30 THEN F1 = 10: GOSUB 630 
: GOTO 10030 

IF ZC > 31 THEN GOSUB 630: GOTO 
10030 


IF ZC = 4 THEN PRINT : TEXT : HOM 
E : PRINT CHR$ (4)"CATALOG": CALL 
- 651: GOSUB 3020: GOTO 10030 
IF ZC = 27 THEN GOSUB 12010: GOTO 

10030 


REM DEPLACEMENT DU CURSEUR 
IF ZC = 8 THEN GOSUB 300:2ZH = (ZH 


- 1) * (ZH > 1) + 40 * (ZH = 1):Z 
V = ZV - (ZH = 40) * (1 + (ZL = 1) 
pe 


GOSUB 270: GOTO 10030 

IF ZC = 10 THEN GOSUB 300:ZV = ZV 
+ (ZV < 24) + ((ZL = 1) AND (ZV < 
23)): GOSUB 270: GOTO 10030 


10130 


10140 


10150 


10160 
10170 
10180 
10190 


10200 
10210 
10220 
10230 


10240 
10250 
10260 
10270 
10280 
12000 
12010 
12020 
12030 


12040 
12050 


12060 


12063 


12065 


12066 


12067 


12068 


12069 


IF ZC = 11 THEN GOSUB 300:ZV = ZV 
— (ZV > 1) - ((ZL = 1) AND (ZV > 
2)): GOSUB 270: GOTO 10030 
IF ZC = 13 THEN GOSUB 300:2H = 1: 
ZV = ZV + (ZV < 24) + ((ZL = 1) AN 
D (ZV < 23)): GOSUB 270: GOTO 1003 
0 
IF ZC = 21 THEN GOSUB 300:2ZH = (Z 
H + 1) * (ZH < 40) + (ZH = 40):2ZV 
= ZV + (ZH = 1) * (1 + (ZL = 1l)): 
GOSUB 270: GOTO 10030 


REM TOUCHES CTRL POUR APPLE II+ 


IF ZC = 9 THEN F1 = 1: GOTO 10030: 
REM CTRL-I => LETTRE SUIVANTE EN 


INDICE 

IF ZC = 14 THEN ZC = 95: GOSUB 630 
IF ZC = 15 THEN ZC = 92: GOSUB 630 
IF ZC = 16 THEN ZC = 96: GOSUB 630 
IF ZC = 19 THEN ZF = (ZF = 0): GOT 
O 10030: REM BASCULE MAJUSCULES/MI 
NUSCULES 

IF ZC = 24 THEN F1 = 2: GOTO 10030 
IF ZC = 7 THEN F1 = 3: GOTO 10030 
IF ZC = 26 THEN ZC = 126: GOSUB 63 
0 

IF ZC = 29 THEN ZC = 91: GOSUB 630 
GOTO 10030 

REM : LA TOUCHE ESC 


WAIT - 16384,128,127:2C = PEEK ( 
— 16384) - 128: POKE - 16368,0 

IF ZC < 49 OR ZC > 53 THEN 12060 

ZE = ZC: GOSUB 300:2B = 12288 + 76 

8 * (ZC - 49): GOSUB 270:2ZX = 1228 

8 + 8 * (ZC - 32): GOSUB 900: RETU 

RN 

IF ZC = 45 THEN NJ = 13 - NJ: RETU 

RN : REM TIRET -> SOULIGNE (BASCUL 

E) 

IF ZC = 43 THEN F1 = 3: GOSUB 630: 
RETURN : REM + OU - PAR FRAPPE 

DE + 

IF ZC = 47 THEN F1 = 3:2L = l1:2ZC = 
64: GOSUB 630:ZL = 0: RETURN : RE 

M SYMBOLE SOMME OBTENU PAR ESX 

"4 

IF ZC = 21 THEN F1 = 3:2C = 62: GO 

SUB 630: RETURN : REM FLECHE DROI 
TE 

IF ZC = 8 THEN F1 = 3:2C = 60: GOS 
UB 630: RETURN : REM FLECHE GAUCH 

E 

IF ZC = 10 THEN F1 

SUB 630: RETURN : 

ICALE BAS 

IF ZC = 11 THEN F1 = 


= 3:ZC = 59: GO 
REM FLECHE VERT 


3:ZC = 94: GO 
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12070 


12075 
12080 
12090 


12100 


12110 


12120 


12130 


12140 


12150 


12160 


12170 


12180 


12190 


12200 


12210 


12220 
15000 
15010 
15020 


15100 
18000 


SUB 630: RETURN : REM FLECHE VERT 
ICALE HAUT 
IF ZC = 66 THEN GOSUB 300:FL = FL 


+ 1:NX = ZH * (FL = 2):NY = (ZV - 
1) * (FL = 2): IF FL = l THEN X = 
ZH:Y = ZV + l: GOSUB 270: RETURN 
: REM : -> TRAVAIL SUR BLOCS 

IF FL = 3 THEN FL = 0 

IF ZC = 66 THEN RETURN 

IF ZC = 70 THEN ROT= 0: GOSUB 180 
10: RETURN : REM F => FORME AVEC R 
OT=0 

IF ZC = 71 THEN ROT= 16: GOSUB 18 


010: RETURN : REM G => FORME AVEC 

ROT=16 

IF (ZC = 72 OR ZC = 104) THEN ZH = 
1:ZV = l: HGR2 : GOSUB 270: RETUR 

N : REM H(OME) => VIDE L'ECRAN HGR 

IF (ZC = 76 OR ZC = 108) THEN GOS 

UB 6010: RETURN 

IF (ZC = 81 OR ZC = 113) THEN TEX 

T : END : REM Q => QUITTER LE PROG 

RAMME 

IF (ZC = 82 OR ZC = 114) THEN TA = 
28676: GOSUB 8030:DX = PEEK (TA 

— l):DY = PEEK (TA):X = ZH:Y = ZV 
:FL = 6: GOSUB 420: RETURN : REMR 
=> RAPPEL D'UN BLOC 

IF FL = l AND (ZC = 78 OR ZC = 639) 
THEN NX = ZH:NY = ZV - l: GOSUB 4 

10: REM INVERSI 

IF FL = 2 AND (ZC = 67 OR ZC = 68) 
THEN GOSUB 410: RETURN : REM COP 

IE OU DEPLACEMENT BLOC 

IF (ZC = 83 OR ZC = 115) THEN GOS 

UB 5010: RETURN : REM S => SAUVE U 

NE PAGE GRAPHIQUE 

IF (ZC = 73 OR ZC = 105) THEN GOS 

UB 20010: GOSUB 3020: RETURN : REM 
I (NSTRUCTIONS 

IF (ZC = 86 OR ZC = 118) THEN ZM = 
(ZM = 0): GOSUB 900: RETURN : REM 
BASCULE VIDEO INVERSE/NORMAL 

IF FL = l AND (ZC = 87 OR ZC = 119 

) THEN TA = 28676:FL = 7:NX = ZH:N 

Y = ZV - l: GOSUB 410: POKE 28675, 

DX: POKE 28676,DY: GOSUB 7030: RET 

URN : REM W => SAUVEGARDE D'UN BLO 

€ 

IF (ZC = 89 OR ZC = 121) THEN ZL = 
(ZL = 0): GOSUB 900: RETURN : REM 
Y => BASCULE DOUBLE HAUTEUR 

RETURN 


REM HARD COPY 

REM METTRE ICI L'APPEL DU SOUS-PR 
OGRAMME DE HARDCOPY 

RETURN 


18010 REM SHAPES 


18020 
18030 


18040 


18050 
18060 
20000 
20010 
20020 
20030 
20040 


20050 
20060 


20070 


20080 


20090 


20100 


20110 


20120 


20130 


20140 


20150 


20160 
20170 


20180 


20190 


20200 


20210 
20220 
20230 
20240 
24000 
24010 
24020 
25010 


25015 
25020 


25030 


WAIT - 16384,128,127:SH = PEEK ( 
- 16384) - 128 - 48: POKE - 1636 

8,0 

IF SH < 1 OR SH > 9 THEN 18030 
GOSUB 1020 

RETURN 

REM ###%# INSTRUCTIONS *#**##2% 


TEXT : HOME 

INVERSE : PRINT "EDITEUR HGR : EDI 

GRAPH (C) 1985 R.JOST ‘";: NORMAL 
INVERSE : PRINT "<ESC>:": NORMAL 

PRINT "1-5: POLICES 1 À 5. B: TRAI 
TEMENT BLOCS" 

PRINT "F: FORMES 0 DEG. G: FORM 

ES 90 DEG" 

PRINT "H: HOME I: INST 

RUCTIONS" 

PRINT "L: CHARGE PAGE HGR. S: SAUV 

E PAGE HGR" 

PRINT "R: LECTURE BLOC P: HARD 

COPY:-" 

PRINT "Q: QUITTER. —: MODE 
SOULIGNE ." 

PRINT "V: BASCULE VIDEO Y: BASC 
ULE HAUTEUR" 

PRINT : PRINT "SOUS-COMMANDES BLOC 
s" 

PRINT "N: NEGATIF D: DEPL 

ACE UN BLOC." 

PRINT "C: COPIE BLOC E: EFFA 

CE UN BLOC." 

PRINT "W: ECRITURE BLOC." 

PRINT : INVERSE : PRINT "CTRL'": NO 

RMAL 

PRINT "S: BASCULE MAJ/MIN. G: LETT 


RE GRECQUE." 


PRINT "I: INDICES. X: EXPO 
SANTS." 

PRINT "J: CURSEUR BAS. K: CURS 
EUR HAUT." 

PRINT "D: CATALOG" 

PRINT "<RETURN>: RETOUR CHARIOT" 
CALL - 651 

RETURN 

REM ###4%4%X  INITIALISATION #*#44 
REM 

Z1 = 1024:21% = 255:22% = 128:22 = 


16255:Z3 = 984:ZZ = 7168:ZB = 122 
88:BA = 16384:ZH = 1:ZV = 1:ZX = 0 
:CZ = 0:NJ = 7:B1(0) = 0:ZM = 0: 
TA = 28676: REM ZONE TAMPON 
DEF FN B1l(Z) = 22 + 22% * ZV - Z3-: 

* INT ((ZV - 1) / 8) +2zZ 


Z1(0) = 0:Z1(1) = 1024:Z1(2) = 204 
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26000 
26010 
26020 


8:Z1(3) 


D$ = 


= 5120:Z1(6) 
CHR$ (4) 

PRINT D$"BLOAD SET, A$3000" 

PRINT D$"BLOAD FORMES4,A$6000": P 


= 3072:Z1(4) 
6144:21(7) = 


= 4096:Z1(5) 
7168 


OKE 232,0: POKE 233,96: SCALE= 1: 





Polices 'SET' 


3000- 
3008- 
3010- 
3018- 
3020- 
3028- 
3030- 
3038- 
3040- 
3048- 
3050- 
3058- 
3060- 
3068- 
3070- 
3078- 
3080- 
3088- 
3090- 
3098- 
30A0- 
30A8- 
30B0- 
30B8- 
30C0- 
30C8- 
30D0- 
30D8- 
30E0- 
30E8- 
30F0- 
30F8- 
3100- 
3108- 
3110- 
3118- 
3120- 
3128- 
3130- 
3138- 
3140- 
3148- 
3150- 
3158- 
3160- 
3168- 
3170- 
3178- 
3180- 
3188- 
3190- 
3198- 
31A0- 
31A8- 
31B0- 
31B8- 
31C0- 
31C8- 
31D0- 
31D8- 
31E0- 
31E8- 


00 
08 
14 
00 
08 
06 
04 
08 
08 
08 
08 
00 
00 
00 
00 
00 
1C 
08 
1C 
3E 
10 
3E 
38 
3E 
1C 
1C 
00 
00 
10 
00 
04 
1C 
10 
08 
1E 
ic 
1E 
3E 
3E 
3C 
22 
1c 
20 
22 
02 
22 
22 


00 
08 
14 
08 
3C 
26 
0A 
08 
04 
10 
2A 
08 
00 
00 
00 
20 
22 
oc 
22 
20 
18 
02 
04 
20 
22 
22 
00 
00 
08 
00 
08 
22 
20 
14 
22 
22 
22 
02 
02 
02 
22 
08 
20 
12 
02 
36 
22 
22 
22 
22 
22 
22 
08 
22 
22 
22 
22 
22 
20 
14 
3C 


00 
08 
14 
08 
OA 
10 
0A 
08 
02 
20 
1C 
08 
00 
00 
00 
10 
32 
08 
20 
10 
14 
1E 
02 
10 
22 
22 
08 
08 
04 
3E 
10 
10 
1C 
22 
22 
02 
22 
02 
02 
02 
22 
08 
20 
0A 
02 
2A 
26 
22 
22 
22 
22 
02 
08 
22 
22 
22 
14 
14 
10 
08 
02 
1C 
1c 
00 
04 
1C 


1E 


2 


00 
08 
00 
08 
1C 
08 
04 
00 
02 
20 
08 
3E 
00 
JE 
00 
08 
2A 
08 
18 
18 
12 
20 
1E 
08 
1C 
3C 
00 
00 
02 
00 
20 
08 
20 
22 
1E 
02 
22 
1E 
1E 
02 
3E 
08 
20 
06 
02 
2A 
2A 
22 
lE 
22 
1E 
1C 
08 
22 
22 
2A 
08 
08 
08 


00 
08 
00 
08 
28 
04 
2A 
00 
02 
20 
1C 
08 
08 
00 
00 
04 
26 
08 
04 
20 
3E 
20 
22 
04 
22 
20 
08 
08 
04 
3E 
10 
08 
3C 
3E 
22 
02 
22 
02 
02 
32 
22 
08 
20 
0A 
02 
22 
32 
22 
02 
2A 
0A 
20 
08 
22 
22 
2A 
14 
08 
04 


00 
00 
00 
08 
l1E 
32 
12 
00 
04 
10 
2A 
08 
08 
00 
00 
02 
22 
08 
02 
22 
10 
22 
22 
04 
22 
10 
00 
08 
08 
00 
08 
00 
22 
22 
22 
22 
22 
02 
02 
22 
22 
08 
22 
12 
02 
22 
22 
22 
02 
12 
12 
22 
08 
22 
14 
36 
22 
08 


S © 


= N NO N © 
NW 


h N 





3220- 
3228- 
3230- 
3238- 
3240- 
3248- 
3250- 
3258- 
3260- 
3268- 
3270- 
3278- 
3280- 
3288- 
3290- 
3298- 
32A0- 
32A8- 
32B0- 
32B8- 
32C0- 
32C8- 
32D0- 
32D8- 
32E0- 
32E8- 
32F0- 
32F8- 
3300- 
3308- 
3310- 
3318- 
3320- 
3328- 
3330- 
3338- 
3340- 
3348- 
3350- 
3358- 
3360- 
3368- 
3370- 
3378- 
3380- 
3388- 
3390- 
3398- 
33A0- 
33A8- 
33B0- 
33B8- 
33C0- 
33C8- 
33D0- 
33D8- 
33E0- 
33E8- 


20 
00 
18 
00 
02 
08 
10 
02 
oc 
00 
00 
90 
00 
00 
00 
00 
04 
00 
00 
00 
00 
00 
00 
20 
04 
10 
2C 
7F 
00 
08 
00 
00 
40 
60 
00 
00 
00 
00 
1C 
08 
00 
00 
10 
00 
00 
40 
7F 
01 
01 
40 
00 
00 
08 
08 
08 
00 
00 
10 


20 3C 22 22 22 3C 00 
00 1C 22 3E 02 3C 00 
24 04 1E 04 04 04 00 
00 1C 22 22 3C 20 1C 
02 1E 22 22 22 22 00 
00 0C 08 08 08:1C 00 
00 18 10 10 10 12 0C 
02 22 12 0E 12 22 00 
08 08 08 08 
00 36 2A 2A 2A 22 00 
00 1E 22 22 22 22 00 
00 1C 22 22 22 1C 00 
00 1E 22 22 1E 02 02 
00 3C 22 22 3C 20 20 
00 3A 06 02 02 02 00 
00 3C 02 1C 20 1E 00 
04 1E 04 04 24 18 00 
00 22 22 22 32 2C 00 
00 22 22 22 14 08 00 
00 22 22 2A 2A 36 00 
00 22 14 08 14 22 00 
00 22 22 22 3C 20 1C 
00 3E 10 08 04 3E 00 
10 1C 22 3E 02 3C 00 
08 22 22 22 32 2C 00 
20 1C 22 3E 02 3C 00 
1A 00 00 00 00 00 00 
7P 7F 7F 7E 7E 7E FF 
00 00 00 00 00 00 00 
08 08 08 08 08 08 08 
2A 2A 2A 2A 2A 2A 00 
14 14 14 14 14 14 00 
00 30 00 1C 00 1F 00 
38 0E 07 03 01 00 00 
00 36 49 49 36 00 00 
00 00 00 00 00 00 00 
20 10 08 04 02 00 00 
02 04 08 10 20 00 00 
14 14 14 1C 00 00 00 
08 3E 08 08 00 3E 00 
04 08 12 24 08 10 00 
00 00 7F 00 00 00 00 
08 48 24 24 12 12 08 
10 08 24 12 08 04 00 
00 00 00 00 00 00 7F 
20 10 08 04 02 01 00 
00 00 00 00 00 00 00 
02 04 08 10 20 40 00 
01 01 01 O1 01 01 01 
40 40 40 40 40 40 40 
00 00 78 08 
00 00 0F 08 08 08 08 
08 08 78 00 00 00 00 
08 08 OF 00 00 00 00 
08 08 08 08 2A 1C 08 
14 14 14 14 14 14 00 
04 02 7F 02 04 00 00 
20 7F 00 7F 02 04 00 






d'Ohn 
U = RI 


HCOLOR= 3 
RETURN 


REM REDEMARRAGE À CHAUD 


. 
. 


HOME : 
© 10030 


10 20 7F 20 10 
11 11 0A OA OA 
10 10 08 08 04 
8C 14 92 3E A1 
22 22 1E 22 22 
22 02 02 02 02 
8c 14 92 22 A1 
22 02 0E 02 22 
08 3E 6B 3E 08 
22 02 02 02 02 
22 22 3E 22 22 
08 08 08 08 08 
22 Al BF Al 22 
12 0A 06 OA 12 
8C 14 92 22 Al 
36 2A 2A 22 22 
22 26 2A 32 22 
22 Al Al Al 22 
22 22 22 22 22 
21 00 1E 00 21 
22 22 1E 02 02 
22 04 08 04 22 
08 08 08 08 08 
AD 08 08 08 08 
Al 22 92 14 8C 
22 Al Al 22 92 
22 14 08 14 22 
08 6B 2A 1C 08 
22 10 08 04 22 
06 06 06 06 06 
02 04 08 10 20 
30 30 30 30 30 
1C 2A 08 08 08 
00 00 00 00 00 
04 08 12 24 08 
00 00 2E 11 19 
B8 A4 3C A2 26 
00 A6 28 98 10 
84 08 8E 12 12 
00 9C 82 1E 02 
10 3C AA 2À 9E 
00 A6 28 98 10 
00 36 A4 24 92 
00 88 08 84 04 
28 24 9E 12 OA 
00 24 8A 06 89 
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Courrier automatisé 


Véronique Schmitt 


orsque nous abordons Fichier de Glossaire 


W.P.L. et le courrier 
dit "automatisé", nous "ENTETE" 
ne trouvons que des 
"circulaires" à personnaliser et  yvéronique scxmr7T 
leur fichier d'adresses Monsieur 
pré-enregistré. Or, si la circulaire 99e Monsieur 
répond bien aux besoins ot snroir 
professionnels, pour lesquels la 
création d'un fichier est 
rentabilisée par des emplois 
successifs, elle paraît inadaptée 
pour des besoins personnels car, 
dans ce cas, le fichier n'est créé 


que pour la circulaire en question Programme WPL 


et tout le travail de saisie, qui est , , 
si fastidieux, n'est guère FORMAT 
fructueux. En effet, dans le cas 
; 
d'un particulier, de quelles PPR (ici mettre CTAL L, entre deux CTRL V bien sûr) 
lettres-type s'agit-il le plus PPR RRRRORNON RAD DE DE DE DE DE D où oo oo fo oo ot 
souvent ? PPR sie ts. 
PPR 2. CHOIX DU FORMAT D'IMPRESSION 1» 
+ une lettre de demande de PPR + “+ 
renseignements auprès d'agen- = RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRÉRR 
ces de voyage; LE 
* une demande de tarif à une PPR Avant de charger le format d'impression désiré, 
compagnie d'assurance; PPR Vous etes-vous ses se phsrie de l'avoir sauvegardé 
* une invitation des amis aux dix de DAS POSER RES 
ans de la petite. PPR 
e etc. PIN NOM DU FORMAT D'IMPRESSION À CHARGER: =SA 
PCS/SA// 
. PDO MENU 
Dans chaque cas, la liste des QCSA 
destinataires est différente et la PDO MENU 


mémoriser en vue d'une 
utilisation ultérieure s'avère 
souvent inutile (si ce n'est dans le 
dernier cas : le fichier "Amis" 
peut éventuellement resservir..….). 


Nous avons donc mis au point un 


programme W.P.L. de "courrier Programme WPL 


automatisé” pour satisfaire les ; , 
besoins des particuliers. GLOSSAIRE 
sue s PND 
Utilisation PPR (ici mettre CTRL L, entre deux CTRL V bien sûr) 
PPR RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 
PPR LEE: r* 
du programme PPR er CHOIX DU GLOSSAIRE + 
PPR + ++ 
Comme pour tout programme PPR RRRRRRRRRRRRRRRRRRRRRRRRRRtRntRntttthththhhthhhé 
W.P.L., il est nécessaire de . 
charger préalablement Apple PPR Avant de charger le glossaire désiré, 
Writer Ile (en français). PPR Vous etes-vous Les assuré de l'avoir sauvegardé 
Pour appeler le programme, tapez ci me gl 
<P> (CONTROLE P), puis après pen 
apparition du message PIN NOM DU GLOSSAIRE À CHARGER: =S2 
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IMPRESSION/PROGRAMME : 
DO MENU. 


NDLR : Si, au lieu de baptiser le 
programme "MENU", nous 
l'appelons "STARTUP", Apple 
Writer le chargera automatique- 
ment, lors du Boot. 


Le programme se décompose en 

4 phases principales : 

+ lère phase : chargement du 
format d'impression; 

* 2ème phase : chargement du 
glossaire; 

+ 3ème phase : création de la 
“lettre-type" selon un schéma 
prédéterminé; 

° 4ème phase : exploitation de la 
lettre créée (saisie des mentions 
variables et édition). 


Il suffit ensuite de suivre pas à 
pas les instructions figurant à 
l'écran. 


Fonctionnement 
du programme 


Le menu 


C'est un programme W.P.L. ne 
présentant aucune particularité. 
Pour quitter, il suffit de taper sur 
"RETURN". 


Chargement du format 
d'impression et 
du glossaire 


Ce sont deux programmes 
W.P.L. Il suffit d'entrer le nom 
du fichier. En cas d'erreur, un 
retour chariot permet de revenir 
au menu principal. Il est rappelé à 
l'utilisateur que les fichiers de 
format d'impression et les 
glossaires doivent être 
préalablement enregistrés sur la 
disquette. Les initiés à 
AppleWriter connaissent bien 
cette procédure de sauvegarde. 


Création de la lettre 


C'est un fichier texte. Il a été créé 
à partir d'AppleWriter Ile et se 
met donc à jour en utilisant les 
commandes AppleWriter. 


A ce stade, l'utilisateur complète 
la lettre avec les mentions 
constantes (Réf., objet, date, 


PCS/$A// 
PDO MENU 
QE $A 

PDO MENU 


Fichier AppleWriter 
‘LETTRETYPE" 


Véronique SCHMITT 
rue des Cerisiers 
97212 AILLEURS 


(NOM) 
(ADRESSE) 
(VILLE) 
Réf. : 
Objet : 
Ailleurs, 
le 
(APPELLATION) 


Veuillez agréer, (APPELLATION), nos salutations distinguées. 
V. Schmitt, 


lère Phase : CREATION DE LA LETTRE TYPE 
- Taper <b> pour avoir le debut de la lettre 
— Compléter la lettre (Réf., Objet, Date, Corps) 


2ème Phase : SAUVEGARDE DE LA LETTRE TYPE 
— Mettre le curseur au debut de la lettre type 
-— Charger la lettre type completee sous le nom XX 
- Taper <S> : XX/V. Schmitt,/ 


Jème Phase : RETOUR AU MENU WPL POUR EXPLOITER LA LETTRE TYPE 
— Taper <P> DO MENU 





Programme WPL 
MENU" 


PND 
PPR (ici mettre CTRL L, entre deux CTRL V bien sûr) 

PPR RARARARRÉRRRRRRAÉRRÉRÉÉRRRRRRRÉARRÉRÉÉÉÉRRÉRÉRRÉÉÉÉÉ 
PPR *r* **+* 
PPR #RE COURRIER AUTOMATISE (W.P.L.) *#* 
PPR **x* LE LS 
PPR RARRRARRAARRARRRRRRRRARARARRRRARRRREÉRRÉRRRARÉRÉRÉ 
PPR 

PPR MENU 

PPR 

PPR 

PPRI- CHOIX DU FORMAT D'IMPRESSION 

PPR 

PPR2- CHOIX DU GLOSSAIRE 

PPR 


PPR3- CREATION D'UNE LETTRE TYPE 
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corps). Puis il la sauvegarde sous es 


le nom de son choix (ici XX). ce EXPLOITATION D'UNE LETTRE TYPE 
Afin de ne pas annexer à la lettre PPR 
créée les instructions qui figurent CHOIX PIN POSER 
. PCS/SA/1/ 
en-dessous, il ne faut PO Fe 
sauvegarder le texte que de PCS/$a/2/ 
l'en-tête jusqu'au signataire, d'où PDO GLOSSAIRE 
4 5 PCS/$a/3/ 
la nécessité de placer le curseur te 
au début de la lettre et de la PCS/Sa/4/ 
sauvegarder sous le nom XX/V. PDO SAISIE 
Schmitt,/. PUS 
: : ; n : PQT 
Enfin, comme ïl s'agit d'un 27 No 


fichier texte, il est nécessaire pour L LETTRETYPE 


poursuivre de retaper <P> : DO 
MENU. 


Remarque : Ce schéma de lettre 
concerne la correspondance de V. 
Schmitt. Le lecteur le 
personnalisera en tapant ses 
propres coordonnées à la place 
des siennes et sauvera le texte 


Programme WPL 
"SAISIE" 


PPR (ici mettre CTRL L, entre deux CTRL V bien sûr) 


sous le nom "LETTRETYPE". rés TT IE 
: a PPR #*## EXPLOITATION D'UNE LETTRE TYPE *a** 
Exploitation de la lettre FPE ne di 
PPR RRRRRRRRRÉRRRRRRRRRRRRRRÉRRRRRRRRRRRRRRRRRRRRRRRRRRRRÉRRRÉRRÉRÉRÉ 

C'est un programme W.P.L. qui PPR 


se déroule en deux phases 
PIN NOM DE VOTRE LETTRE TYPE :=$c 


principales: BOUCLE NO 
* saisie du nom de la lettre à L $c 
éditer; PPR (ici mettre CTRL L, entre deux CTRL V bien sûr) 
. . n B 
* saisie des mentions variables NS SRE dus 
concernant le ler destinataire, PCS/SA// 
PDO MENU 


puis édition correspondante. 
Saisie des mentions variables Re 
concernant le destinataire PIN ADRESSE :=$A 


suivant, puis édition, etc. F/ (ADRESSE) /SA/a/ 
B 


PIN VILLE :=$A 
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Le retour au menu se fait par un 
retour chariot lors de la saisie 
d'un nouveau nom de 


destinataire. . 


F/(VILLE)/$SA/a/ 

B 

PIN APPELLATION :=$A 
F/ (APPELLATION) /$A/a/ 
B 


:  ENP 


PGO BOUCLE 


Editeur Plein Ecran 


Le Pacha 


EPE 


Apple 


][+, //e, /lc 


Listez vos programmes Basic en avant et en arrière. 
Modifiez, insérez, effacez des caractères en plein écran sans relire les lignes. 


Recherchez toute chaîne de caractères. 
Choisissez vous-même les codes de contrôle d'EPE. 
Modifiez EPE : le fichier source est sur la disquette. 


150,00 F TTC franco (bon de commande page 74). 
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RWTS désassemblée 


Patrice Neveu 


ans le numéro 9 de Pom's, 

Thierry Le Tallec désassemblait 

pour nous la ROM en $C600 : les EntréesiSorties 

méandres du Boot deveniaient 
clairs. Aujourd'hui nous nous consacrons à 
Rwts. Beaucoup d'encre a coulé à son sujet, 
citons particulièrement celle de Call Apple 
dans A!! About Dos. 


Formateur 
16 secteurs 


Les fichiers de désassemblage qui suivent 
sont écrits en Big Mac : 


+ _ Rwts 1 regroupe les sous-routines Prenibl 
Write Postnibl Read Rdadr Seekabs NIBBLE BUFFERS 


Wrtform. 


+ Rwts 3 est le formatteur 16 secteurs du 


DOS 3.3. Utilitaires de RWTS 
PRENIBL WRITE POSTNIBL 
Ces fichiers devraient permettre au lecteur de READ RDADR SEEKABS 
modifier avec plus de facilité le DOS. Ils 
devraient simplifier la mise au point de DOS 


formattages fantaisistes, de protection 


logicielle. 
Ë a Carte de RWTS en mémoire 








R WTS 1 27 BUFPTR EQU $3E POINTE SUR LA PAGE DE BUFFER DE 
. TRAVAIL 
(Assembleur BigMac) 2 vi Bou 541 NUMERO DE VOLUME 
29  SECTNO EQU $3F NOSECT 
30  TRKNO EQU $44 NO PISTE 
1 31 TRKN EQU $2A PISTE DE DESTINATION 
2 RARARARAR ARR RÉ RÉ R RÉ RÉ RÉ ÉHÉE 32 MONT IME EQU $46 COMPTEUR SERVANT AUX DELAIS DU 
3 * + MOTEUR 
4  * DISK II * 33  TEMP EQU $2C 
5 #* SOUS-ROUTINES UTILITAIRES DE * 34 L27 EQU $27 
6  * READ / WRITE TRACK & SECTOR  * 35  COMPTEUR  EQU $26 COMPTEUR POUR LE BUFFER 
7 à ($B800.BCDE) * SECONDAIRE 
mn à ? 36 SLOTNUM EQU $28 NUMERO DE SLOT 
P * % 37 CURTRK EQU $0478 LE NUMERO DE LA PISTE ACTUELLE 
10 * © PAR APPLE COMPUTER. * 38 LO678 EQU $0678 
11 + * 39 DATAI EQU $BAlI BA1i.BA28 : DELAIS POUR LES 
12 * DESASSEMBLE PAR P. NEVEU * MOUVEMENTS 
13 * : 40 DATAZ EQU $BA1D DU BRAS. UTILISE LORS DES 
14 ÉARRARRARÉRRÉR RÉ RÉ RÉ RÉ RAR PHASES ON/OFF 
15 41 DATA3 EQU $BA29 TABLE DE CONVERSION AL'ECRITURE 
16 42 NIBLBUF EQU $BB00 ADRESSE DE DEBUT DU BUFFER 
17 PRIMAIRE 
18 ORG $B800 43  NIBLBUFI  EQU $BBFF 
19 oBJ $8800 44 NIBLBUF2  EQU $8C0 ADRESSE DE DEBUT DU BUFFER 
20 SECONDAIRE 
SL one 45  RDLTCH EQU $co8c SWITCH DE LECTURE DATA 
22 * 46 WRLTCH EQU $C08D. SWITCH D'ECRITURE DATA 
23 * LABELS 47  RDMODE EQU $CO8E SWITCH POUR MODE LECTURE 
i R 48  NWRMODE EQU $C08F ECRITURE 
27 fosse 49 PHSOFF EQU $C080 ZONE ALLUMANT OU ETEIGNANT LES 
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4 PHASES 
LINE ( $co80.c087) 
51 
52 
53 femme 





54 # PRENIBL - WRITE - POSTNIBL 


55 * READ 
56  *=mmum== 
57 





— RDADR - SEEKABS 





58  * === === 


59 * PRENIBL:NIBBLELIZE POUR ECRIRE 





60. + 


femmes: 


61 
62 
63  PRENIBL LDX 
64 
65 


LDY 
PRENIB1 DEY 
66 LDA 
67 LSR 
68 ROL 
69 LSR 
70 ROL 
71 STA 
72 INX 
73 CPX 
74 BCC 
75 LDX 
76 TYA 
77 BNE 
78 LDX 
79  LB8IE LDA 
80 AND 
81 STA 
82 DEX 
83 BPL 
84 RTS 
85 


86 CES 











ENSUITE. 


#500 
4502 


(BUFPTR),Y 


NIBLBUF2,X 


NIBLBUF2,X 
NIBLBUF, Y 


#556 
PRENIB1 
#500 


PRENIB1 


4555 


NIBLBUF2, X 


#53F 


NIBLBUF2, X 


LB81E 





CONVERTIT 256 OCTETS (8 BITS) 
EN 342 NIBBLES (6 BITS) 

DE LA FORME 00XXXXXX 

PAGE À CONVERTIR EST EN BUFPTR 
METHODE DE CONVERSION 6+2 (DOS 
5:3} 

BUFFER SECONDAIRE 


BUFFER PRIMAIRE 


CODE 85 OCTETS... 


-.. 3 FOIS DE SUITE, POUR EN 
CODER 256 


IL Y À 86 NIBBLES DANS LE 
BUFFER SEC. 

CHARGER LES NIBBLES UN PAR 
UN... 

LES NIBBLES SERONT DE LA FORME 
OOXXXXXX 

REMET-LE DANS SON BUFFER 

IL EN RESTE ? 

OUI, ALORS AU PROCHAIN... 


87 #WRITE:LA VRAIE ROUTINE QUI ECRIT 





DANS X IL Y À LE NUMERO DE SLOT 
# 16 


TESTE UNE PROTECTION À 
L'ECRITURE 


SI LE BIT 8 (N) = 1, PROTEGE 


FIXE LE COMPTEUR DE NIBBLES 
CHARGE UN OCTET DE 

SELF-S YNCHRONISATION 

ECRIT LE SUR LE DISK 


PERTE DE TEMPS DE 3+4+2=9 
CYCLES 


METTRE MAINTENANT 4 SELF-SYNC. 
FAIT EN DELAI DE 3+4=7 CYCLES 


PUIS VA ECRIRE 
DEMANDE À PASSER AU PROCHAIN 
S'IL EN RESTE... 


CHARGE LE DEBUT DU PROLOGUE 
DANS L'ACC. 

ET VA ENSUITE L'ECRIRE SUR LE 
DISK 

$D5/$AA/$AD REPRESENTE LE 
PROLOGUE DU 

CHAMP DATA. 


88 * LES NIBBLES DES BUFFERS 
89 * PRIMAIRE ET SECONDAIRE 
90 === 
91 
92 HWRITE SEC 
93 STX L27 
94 STX L0678 
95 LDA WRLTCH, X 
96 LDA RDMOLE, X 
97 BMI LB8B4 
98 LDA NIBLBUF2 
99 STA COMPTEUR 
100 LDA #$FF 
101 STA WRMODE, X 
102 ORA RDLTCH, X 
103 PHA 
104 PLA 
105 NŒ 
106 
107 LDY 4$04 
108  LB84A PHA 
109 PLA 
110 JSR WRTNIBL2 
111 DEY 
112 BNE LB84A 
113 
114 LDA #$D5 
115 JSR WRTNIBLI1 
116 LDA #$AA 
117 JSR WRTNIBL1 
118 LDA #$AD 
119 JSR WRTNIBLI1 


22 


L'ECRITURE DU PROLOGUE EST 
FINIE 


120 
121 
122 


123 
124 
125 
126 
127 
128 
129 


130 


131 
132 
133 
134 
135 
136 


137 
138 
139 
140 
141 
142 


143 


144 


145 
146 
147 
148 
149 
150 
151 
152 
153 


154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 


165 

166 

167 
168 

169 
170 

171 

172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 


187 


188 
189 
190 
191 
192 


LDY #$56 


BNE LB869 
LB866 LDA NIBLBUF2, Y 
LB869 EOR NIBLBUF1, Y 


LDA DATA3,X 
LDX L27 
STA WRLTCH, X 


LDA RDLTCH, X 


BNE LB866 
LDA COMPTEUR 


LB87E EOR NIBLBUF, Y 


LDA DATA3,X 
LDX L0678 

STA WRLTCH, X 
LDA RDLTCH, X 
LDA NIBLBUF, Y 


BNE LB87E 


LDA DATA3,X 
LDX L27 
JSR WRTNIBL3 


LDA #$DE 
JSR WRTNIBL1 
LDA #$AA 


JSR WRTNIBLI 
LDA #$EB 
JSR WRTNIBLI1 
LDA #$FF 
JSR WRTNIBLI1 
LDA RDMODE, X 

LB8B4 LDA RDLTCH, X 
RTS 

WRTNIBL1 CIC 

WRTNIBL2 PHA 

WRTNIBL3 STA WRLTCH,X 


ORA RDLTCH, X 


Hemex====. 





PREPARE À ECRIRE 86 NIBBLES DU 
BUF.SEC. 
TJS PRIS 


WRITE LOAD (WRMODE DOIT AVOIR 
ETE MIS }) 

ECRIRE L'OCTET (AVANT -> WRITE 
MODE) 

ON LES PREND DE HAUT EN BAS 
S'IL EN RESTE À ECRIRE... 


LE CODAGE DES NIBBLES À 
L'ECRITURE 


WRITE LOAD 

ECRIT L'OCTET 

PREPARE À CODER LE PROCHAIN 
NIBBLE 

PREND DU BUFF.PRIMAIRE, DE BAS 


EN HAUT 
AU PROCHAIN DE CES 256 
NIBBLES... 


PREPARE LE CHEKSUM 


ET VA L'ECRIRE... 


CHARGE LE DEBUT DE L'EPILOGUE 
ET VA L'ECRIRE... 

$DE/S$AA/$EB EST L'EPILOGUE DU 
CHAMP . 


FINIR L'ECRITURE DE L'EPILOGUE 


PREPARE POUR DES ENTRÉES 
FAIT L'INVERSE 


LE TEMPS EST IMPORTANT: 32 


CYCLES 
POUR L'ECRITURE D'UN OCTET. 


WRITE LOAD 
WRITE BYTE 


om mm 


#* POSTNIBL: DECODE 342 NIBBLES 
Li (6 BITS) 00XXXXXX EN 
* 256 OCTETS (8 BITS) 


ÂMES SRMMEEESEEEEEMMMMME 


POSTNIBL  LDY #$00 
POSTNIB1  LDX #$56 
POSTNIB2 DEX 
BMI POSTNIB1 
LDA NIBLBUF, Y 
LSR NIBLBUF2, X 


LSR NIBLBUF2,X 


STA (BUFPTR),Y 


CPY COMPTEUR 
BNE POSTNIB2 
RTS 


=== SR MMESSEZS: 





FAITS-EN 85 D'UN COUP... 


ENCORE UNE FOIS S.V.P 

DECODE CEUX DU BUFFER PRIMAIRE 
ET CEUX DU SECONDAIRE 

SELON LA METHODE DU 6+2 


BUFPTR DONNE L'ADRESSE DE LA 
PAGE OÙ 

SONT RANGES LES OCTETS 
UTILISABLES 

FAIT 4 FOIS 86 NIBBLES 

OK ? 
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193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 


206 


207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 


219 


220 
221 


222 


223 
224 
225 


226 


227 
228 
229 


230 


231 
232 
233 
234 


235 


236 
237 
238 
239 


240 
241 
242 
243 
244 


245 
246 


247 
248 
249 
250 


251 


252 
253 
254 
255 
256 
257 
258 
259 


* READ : LIT UN SECTEUR DE DATAS 
# DEPUIS LE DISK ET STOCKE 
x DANS LES NIBBLE BUFFERS 


* (LE 2ND D'ABORD DE HAUT EN BAS) 
* (LE 1ER ENSUITE DE BAS EN HAUT) 


LE 


READ 
NAITDATA 


LDY 
DEY 
BEQ 
LDA 
BPL 
EOR 


WAITDATAI 


WAITI 


WAIT2 


WAIT3 


DATABLOC 


DATABL2 


18913 
LB915 


LB925 


L892F 


L8939 


ë 


t==—mme— 


* RDADR : 





RDADR LDY 


STY 
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+520 


RDERR 
RDLTCH, X 
WAITDATAI 
#$5D5 


WAITDATA 


RDLTCH, X 
WAIT2 
#$AA 
RAITI 
#556 
RDLTCH, X 
HAIT3 
#$AD 
HAITI 


#$00 


COMP TEUR 
RDLTCA, X 


DATABL2 
$BA00,Y 
COMP TEUR 
NIBLBUF2, Y 
DATABLOC 
COMP TEUR 
RDLTCH, X 
LB915 
$BA00,Y 


COMP TEUR 
NIBLBUF, Y 


LB913 


#$FC 
COMPTEUR 





LIT UN DATA 
EN FAIT, ATTEND LE PROLOGUE 
D5/AA/AD 

CE N'ETAIT PAS SON DEBUT, ALORS 
RE-LIT 


ON ATTEND LE 2EME MORCEAU 


IL EST FAUX 2??? 
PREPARE LE COMPTEUR À 86 ($56) 
PUIS LA FIN DE CE PROLOGUE... 


C'EST ÇA ? 


LE PROLOGUE EST LU, AUTOUR DES 
86 NIB. 

QUI SERONT MIS DANS LE BUFFER 
SECOND. 

ET RANGES DE HAUT EN BAS 
LECTURE D'UN DATA DEPUIS LE 
DISK 

JUSQU'A CE QU'IL SOIT 
CONVENABLE 


OU LE RANGE-T-ON CE NIBBLE ? 
A CET ENDOIT DANS LE BUFFER 
SECONDAIRE . 

IL EN RESTE À LIRE, 
ALLONS -Y 


ALORS 


DANS L'ATTENTE D'UN DATA 
CONVENABLE 
C'EST RATE, 
CASE (!) 


IL LUI MANQUE UNE 


ON LE RANGERA OU CE NIBBLE ? 
ICI DANS LE BUFFER PRIMAIRE 

OU ILS SERONT STOCKES DE BAS EN 
HAUT 

ON EN VEUT 256, 
TOTAL 


SOIT 342 AU 


LECTURE D'UN CHECKSUM 

CE BYTE EST TOO MOCHE ! 
COMPARE AVEC CELUI CALCULE EN 
CHARGEANT 

ERREUR, ILS SONT DIFFERENTS !11 


ON LIT UN DATA... 

BOUH QU'IL EST LAID ! 

-.-QUI DOIT ETRE LE DEBUT DE 
L'EPILOGUE 

ENCORE UNE ERREUR POSSIBLE 
HEUREUSEMENT, ÇA SEMBLE ETRE 
BON... 

ICI, ON S'ATTEND À UN $AA 


C'EN EST UN ? (O/N) 

LA LECTURE EST TOUT À FAIT 
CORRECTE !!! 

NON, ALORS ON LE SIGNALE, 
PART... 


ET ON 


RS 


LIT LE CHAMP ADRESSE 


mm mm 





MISE À JOUR DU COMPTEUR 


260 
261 
262 
263 
264 
265 
266 


267 


268 
263 
270 


271 
272 


273 


274 
275 


276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 


287 


288 
289 
290 
291 


292 


293 
294 


295 
296 
297 
298 


299 


300 
301 
302 
303 


304 
305 
306 
307 


308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 


LB948 


HAITDAT LDA 


RAITD1 


WAITD2 


WAITD3 


ADRBLOCK 
ADRBLOC2 


ADRBLOC3 


TAY 


WAITDAT 
COMP TEUR 
RDERR 


RDLTCH, X 
WAITDAT 


#55 


LB948 


RDLTCH, X 


KAITD2 
#$AA 


NAITDI 


#$503 
RDLTCH, X 


WAITD3 
#596 
WAITDI 


#$00 
L27 


ADRBLOCK 


RDERR 


IL Y A EU TROP D'ERREUR !!! 
LECTURE D'UNE DONNEE DU DISK 
SEULEMENT SI ELLE N'EST PAS 
CONVENABLE 

ÇA DOIT ETRE $D5 POUR LE 
PROLOGUE | 
ERREUR, ON RE-ESSAYE 

C'EST BON, ON CONTINUE... 
LECTURE DU DEUXIEME OCTET D'UN 
PROLOGUE 

LE 8EME BIT DOIT ETRE À 0 

LE PROLOGUE DU CHAMP ADRESSE: 
D5/AA/96 

RE-ESSAYE, MAIS C'EST PAS 


-ILLIMITE ! 


C'EST POUR LA PROCHAINE ETAPE 
CETTE LECTURE DOIT DONNER $96 
ET DONC 


MARQUER LA FIN DU PROLOGUE 
TOUT EST À REFAIRE... 


LECTURE D'UN DATA 
S'IL N'EST PAS VALABLE 
DEBUT DU CODAGE... 


LE VOLUME, PISTE, SECTEUR, 
CHECKSUM SONT 

CODES SUR DEUX OCTETS DANS LE 
CHAMP 

ADRESSE. D'OU LES 2 LECTURES... 
-..SUITE DU CODAGE... 


IL Y AVAIT $3 POUR LIRE LES 4 
DONNEES 

SI Y=0 VA QUAND MEME LIRE, 
ARRETE À $FF 


SI LE DERNIER (CHECKSUM) <> 0, 
ERREUR ! 


* ATTEND $DE $AA ,L'EPILOGUE, SINON, C=1 


LB98B LDA 


LB995 


GOODRD 


* 


* SEEKABS : POSITIONNE LA TETE DE 


RDLTCH,X 


LB98B 


#$DE 
RDERR 








MAINTENANT, ON LIT 
L'EPILOGUE... 

CET OCTET N'EST PAS DIGESTE 
(OXXXXXXX) 

S'IL L'EST, ÇA DOIT ETRE $DE 
SINON, IL Y A ERREUR 


EN FAIT, 
PARTIE DE 
L'EPILOGUE: $DE/$AA/($EB) 


ON NE VA LIRE QU'UN 


LE CHAMP ADRESSE N'EST PAS BON 
BONNE LECTURE !, PAS D'ERREUR 
(C=0) 





=) LECTURE SUR LA PISTE 

+ DESIREE 

a —— 

SEEKABS STX SLOTNUM SAUVE LE NUMERO DE SLOT 
STA TRKN LA PISTE DE DESTINATION 
CMP CURTRK ON Y EST DEJA ? 
BEQ LB9FC OUI, ALORS C'EST FINI. 
LDA #$00 ON MET À JOUR LE COMPTEUR 
STA COMPTEUR 

LB9AD LDA CURTRK OU ON EST... 
STA L27 
SC A QUOI ON RETIRE... 
SBC TRKN OU ON VA 
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LB9C5 
LB9CB 


LB9D0 


LB9EA 


LB9EE 
LB9F1 


LB9FC 


WA ITARMOV 
WTRMV 


WTRMV1 


NWRTFORM 


BMI WRIT4 
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fan mm mm mm 
*# BOUCLE D'ATTENTE POUR LE 

# MOUVEMENT DU BRAS EN UNITES DE 
* 100 MICRO SECONDES 


fm 


d=z—2==2=: 





BEQ LB9EA IDENTIQUE, ALORS PHASE X OFF 

BCS LB9C0 ON EST TROP LOIN ! 

EOR #$FF ON N'EST PAS ASSEZ LOIN 

INC CURTRK ALORS PASSE À LA PROCHAINE 
PISTE... 

BCC LB9C5 TJS PRIS 

ADC #$FE 

DEC CURTRK PASSE À LA PRECEDENTE PISTE... 

CMP COMPTEUR 

BCC LB9CB 

LDA COMPTEUR 

CMP #$0C 

BCS LB9D0 

TAY 

SEC PHASE X ON, LE BRAS VA BOUGER ! 

JSR LB9EE VA LE FAIRE CHANGER DE PLACE... 

LDA DATAI,Y CHARGE LE DELAI 

JSR $BA00 ET VA ATTENDRE... 

LDA L27 

CC C=0 -> PHASE X OFF 

JSR LB9F1 VA LA METTRE OFF CETTE PHASE 
X... 

LDA DATA2, Y CHARGE UN DELAI POUR LES 
MOUVEMENTS 

JSR WAITARMOV DU BRAS, ET EXECUTE-LE... 


IL EN RESTE ? 
IL FAUT ENCORE VERIFIER (TJS 
PRIS) 


INC COMPTEUR 
BNE LB9AD 


* BOUGE LA TETE DE LECTURE 


JSR WAITARMOV ATTENTE... 


CLC C=0 DONC PHASE OFF 

LDA CURTRK 

AND #$03 N' PISTE: 000000XX -> NUMERO DE 
PHASE 

ROL 00000XXC (C=0 :OFF , C=1 :ON) 

ORA SLOTNUM AJOUTE LE NUMERO DU SLOT 

TAX 

LDA PHSOFF, X MET ON OU OFF LA PHASE REQUISE 

LDX SLOTNUM REPREND LE NUMERO DU SLOT 

RTS 








ORG $BA00 

oBJ $8A00 

LDX #$11 2 CYCLES 

DEX 2 CYCLES 

BNE WTRMV 3 CYCLES -> (2+3)#15+2+2=79 
CYCLES 

INC MONTIME IL DOIT Y AVOIR LE COMPTEUR DE 
TEMPS 

BNE WTRMVI QUI SE TROUVE DANS L'IOB (6+3 = 
9 CYrc.) 


2 CYCLES (92) 
4 CYCLES (96) 
SOIT TOUJOURS À LA FIN ENVIRON 


100 uSEC 


* WRTFORM: ECRIT LE CHAMP ADRESSE 
* PENDANT L'INITIALISATION. 





ORG $BC56 

OBJ $8C56 

SEC 

LDA WRLTCH, X TESTE S'IL Y A PROTECTION À 
L'ECRITURE 
LDA RDMODE, X 
IL Y EN À UNE, ALORS ARRETE 
L''OPERATION 


LDA #$FF DEBUT DE L'AUTO- 


SYNCHRONISATION... 
CELA PERMET D'ECRIRE 
L 'ACCUMULATEUR 


STA WRMODE, X 


CMP RDLTCH, X 


PHA L'APPLE VA TROP VITE POUR LE 
DRIVE, IL 
PLA NE FAUT PAS L'OUBLIER ! 


# ECRIT LE PROCHAIN NIBBLE D'AUTO 
* SYNCHRONISATION. IL Y EN À Y... 


HRIT3 


WNIBLA 
WNIBLB 


JSR WRITEND 2*12 US. D'ATTENTE... 

JSR WRITEND 

STA WRLTCH, X WRITE LOAD 

CMP RDLTCH, X WRITE BYTE 

Nœ 

DEY AU PROCHAIN NIBBLE 

BNE WRIT3 S'IL EN RESTE... 

LDA #$D5 ECRITURE DU PROLOGUE DU CHAMP 
ADRESSE 

JSR WNIBLB CONSTITUE DE $D5/$AA/$96 

LDA #$AA 

JSR WNIBLB 

LDA #$96 

JSR HNIBLB 

LDA VOL PUIS COMME L'USAGE LE VEUT, IL 
FAUT 

JSR HBYTE ECRIRE LE VOLUME, LA PISTE, LE 
SECTEUR 

LDA TRKNO 

JSR WBYTE 

LDA SECTNO 

JSR WBYTE 

LDA VOL ON FAIT LE CHECKSUM DU VOLUME, 

EOR TRKNO DU NUMERO DE PISTE 

EOR SECTNO DU NUMERO DE SECT. 

PHA ON LE SAUVE POUR USAGE 
ULTER IEUR 

LSR PUIS ON CONTINUE LE CODAGE 

ORA BUFPTR ON À ALORS LE 1ER OCTET DU 


CHECKSUM 


STA WRLTCH, X QUE L'ON ECRIT... 


PLA REPRENDRE LE RESULTAT 
PRECEDEMENT SAUVE 

ORA #$AA POUR OBTENIR LE 2EME OCTET DU 
CHECKSUM 

JSR WNIBLA (TJS 2 OCTETS DANS LE CHAMP 
ADRESSE) 

LDA #$DE PUIS ON FINI ENFIN PAR 
L'EPILOGUE 

JSR WNIBLB 

LDA #$AA UN EPILOGUE, C'EST $DE/$AA/$EB 

JSR WNIBLB 

LDA 4$E8 

JSR WNIBLB 

CL 

LDA RDMODE, X ON S'ARRETE D'ECRIRE 

LDA RDLTCH, X 

RTS ET ON RENTRE... 

PHA ROUTINE QUI ECRIT UN OCTET EN 
DOUBLE 

LSR CODE LES INFO. ADR. EN BITS 
PAIRES ET 

ORA BUFPTR IMPAIRES, ET LES ECRIT TOUT LES 
32 HSEC 

STA WRLTCH,X  NWRITE LOAD 

CMP RDLTCH, X WRITE BYTE 

PLA 

NŒ UN NOP PREND 2 CYCLES 

NŒ DONC ON ATTEND 6 CYCLES... 

Nœ 

ORA 4$AA SAA = #10101010 

NŒ 

NŒ 

PHA 

PLA 

STA WRLTCH,X ECRIRE LE DEUXIEME OCTET 

CMP RDLTCH,X 

RTS 


Suite de RWTS page 26 = 
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OFFRES SPECIALES BOUTIQUE"IÉEE 
Pour les LECTEURS de POM'S 


EXTENSION MAC 


Extension 128 K à 512 K pour MAC 


Garantie 1 an !.E.F. 


Prix spécial lecteur POM'S 3 362 Frs H.T 


3:990/FrS ETC 


(Nous consulter pour extensions supérieures) 


FLOPPY DISK cHiNon 


° 4 TP 
dé 1 e 40 pistes 
5" 1/4 compatible Apple Ile et [lc ps Las 
+ 160 Ko sous DOS spécial 
e ultra silencieux 
e détection de piste O par photo détecteur 
e. vitesse ultra stable par moteur à entrainement direct 


DRIVE seul : 990 Frs H.T 


1174 Frs T.T.C 


DRIVE + câble : 1 080 Frs H.T 


1 280 Frs T.T.C 


DRIVE + câble + boîtier : 1 172Frs HT 


1 390 Frs T.T.C 
(prix par quantité sur demande) 
1/2 hauteur + haute fiabilité + garantie 1 an 


Ce lecteur de disquette a été homologué 
par la FRAMIF, l'Aérospatiale, le club Thomson, etc... 


à Fi O M O S = (Urgent quantité limitée) 


— Carte 80 colonnes étendue 990 Frs T.T.C 

— Disquettes 51/4 9,90 H.T par boîte de 10 (11,75 Frs T.T.C) 

— Moniteurs 12" haute résolution vert 990 Frs T.T.C 

— Promo lIlc Noel : Apple Ilc + Moniteur + Souris + Logiciel : 9 990 T.T.C 
- Promo MAC Noel : MAC étendu à 512 K : 19 990 Frs T.T.C 





BOUTIQUE L.E.F. : 403, rue de Vaugirard (porte de Versailles) 75015 PARIS Tél. : 48.28.06.01 


Je passe commande de : 

O Extension MAC à 3 990 Frs T.T.C 

O Floppy Apple modèle 

Je joins un chèque d'acompte de 20% soit : Frs 
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RWTS 2 _—. 











STY SEEKCNT 
(Assembleur BigMac) . na ee 
76 STY $04F8 
77 LDY #1 CHARGE LE NUMERO DE SLOT 
1 78 LDA (IOBPL),Y 
2 fhitiiiiiiiiiitiiitiiiiiiiiiiiiih 79 TAX 
3 + * 80 LDY #$0F CHARGE LE NUMERO DU PRECEDENT 
4 * DISK II * SLOT, COMPARE 
5 *  READ/WRITE TRACK-SECTOR * 81 CMP (IOBPL),Y 
6 * ($BDOO.BEAE) * 82 BEQ SAMESLOT C'EST LE MEME, PAS DE PROBLEME 
7 #* * 83 
8 * © PAR APPLE COMPUTER * 84 * ON UTILISE UN NOUVEAU SLOT. 
9 * * 85 * ATTENDRE L'ARRET DU DRIVE. 
10 * DESASSEMBLE PAR P. NEVEU * 86 * POUR LE SAVOIR, ON LIT LES 
11 * * 87 * DATAS DU DISK. ILS DOIVENT ETRE 
aa ÉPETLEELELILIILILIIIIIIII 1111112111) 88 * LES MEME PENDANT AU MOINS 9 
13 89 * MICRO-SECONDES 
14 90 
15 91 TXA SAUVE LE NOUVEAU NUMERO DE SLOT 
16 ORG $BD00 æ PHA 
17 OBJ $8D00 93 LDA (IOBPL),Y CHARGE LE "VIEUX" 
18 94 TAX 
19 tanmnmmmmmmmenmommammensm…= 95 PLA 
20 #* 96 PHA 
21 * LABELS 97 STA (IOBPL),Y SAUVE LE NOUVEAU 
22 * 38 LDA RDMODE, X METS-TOI EN MODE DE LECTURE 
21 fmmeu… ES 99  STILLON LDY 4#$08 LES DATAS DOIVENT RESTER STABLES 
24 100 LDA RDLTCH, X PENDANT 96 USec 
25 MOTOROFF  EQU $C088 ETEIND LE MOTEUR 101 NOTSURE CMP RDLTCH, X LES DONNEES CHANGENT ? 
26 MOTORON EQU $c089 ALLUME LE MOTEUR 102 BNE STILLON OUI... 
27 DRVOEN EQU $c08A BRANCHE LE DRIVE 1 103 DEY 
28 DRVIEN EQU $C08B DRIVE 2 104 BNE NOTSURE STABLE DEPUIS SUFFISAMENT DE 
29 RDLTCH EQU $c08c SWITCH DE LECTURE DATA TEMPS ? 
30  WRLTCH EQU $C08D SWITCH D'ECRITURE DATA 105 
31 RDMODE EQU $CO8E SNITCH POUR MODE LECTURE 106 * LE PRECEDENT DRIVE EST ETEINT MAINTENANT 
32 WRMODE EQU $CO8F ECRITURE 107 
33  PHSOFF EQU $C080 ZONE ALLUMANT OU ETEIGNANT LES 4 108 PLA REPRENDRE LE NOUVEAU NUMERO DE 
PHASES DRIVE 
” * { $C080.C087 ) 109 TAX 
35 110 
36  PRENIBL EQU $B800 NIBBLELIZE POUR ECRIRE APRES. 111 * ON TESTE SI LE MOTEUR EST ALLUME, SI NON, ON LE DEMARRE 
37  WRITE EQU $B82A ECRIT LES BUFFERS PRIMAIRE + 112 
SECONDAIRE 113 SAMESLOT  LDA RDMODE, X ON SE MET EN MODE LECTURE 
38 POSTNIBL  EQU $B8C2 DECODE 342 NIBBLES EN 256 OCTETS 114 LDA RDLTCH, X 
39  READ EQU $B8DC LIRE UN SECTEUR DU DISK ->NIBBLE 115 LDY #$08 
BUFFER 116 SSLOTI LDA RDLTCH, X 
40  RDADR EQU $B944 LIRE LE CHAMP ADRESSE 117 PHA ON ATTEND ENCORE UN PEU AVANT DE 
41  SEEKABS EQU $B9A0 TETE DE LECTURE SUR LA PISTE RELIRE 
DESIREE 118 PLA 
42 WAITARMOV EQU $BAO0 ATTENTE POUR MOUVEMENTS DU BRAS 119 PHA 
43  DSKFORM  EQU $BEAF ROUTINE DE FORMATAGE 120 PLA 
44  DRVOTRK EQU $0478 TOUT CELA SE TROUVE CACHE DANS L 121 STX SLOT DELAI, ET ÇA PEUT ETRE UTILE PLUS 
45  DRVITRK EQU $04F8 TROUS DE LA PAGE TEXT TARD 
46  SLOT EQU $05F8 LE NUMERO DE SLOT 122 CMP RDLTCH, X VERIFIE SI ÇA MARCHE 
47  CURTRK EQU $0478 LE NUMERO DE LE PISTE ACTUELLE 123 BNE SSLOT2 ÇA TOURNE, LES DATAS ON CHANGE! 
48  SEEKCNT EQU $06F8 124 DEY CONTINUE À ATTENDRE QUE ÇA CHANGE 
49 RETRYCNT  EQU $0578 LE COMPTEUR D'ESSAIS 125 BNE SSLOTI SI CE N'EST PAS FINI 
50 126  SSLOT2 PHP SAUVE LE RESULTAT DU TEST 
51 IOBPL EQU $48 L'ADRESSE DE LA TABLE IOB 127 LDA MOTORON,X ALLUME LE MOTEUR 
52  MONTIME EQU $46 128 LDY #6 COPIE TOUS LES POINTEURS 
53 IOBPH EQU IOBPL+1 129  PTRMOV LDA (IOBPL),Y 
54 PTRSDEST  EQU $3C 130 STA PTRSDEST-6, Y 
55 DEVCTBL EQU PTRSDEST 131 INY 
56  CSUM EQU $2C 132 CPY #$0A ILS SONT TOUS COPIES ? 
57 SECT EQU CSUM+1 LE NUMERO DE SECTEUR 133 BNE PTRMOV 
58  TRKN EQU $2A PISTE DE DESTINATION 134 LDY #$03 
59 DRIVNO EQU $35 LE NUMERO DE DRIVE 135 LDA (PTRSDEST),Y 
60  TRACK EQU SECT+1 LE NUMERO DE LA PISTE 136 STA $47 
61 VOLUME EQU TRACK+1 LE NUMERO DE VOLUME DU DISK 137 LDY #2 MAINTENANT, AU TOUR DES PARAMETRES 
62 COMPTEUR EQU $26 POUR LE BUFFER SECONDAIRE 138 LDA (IOBPL),Y DRIVE 1 OU 2 ? 
63  IBDERR EQU $40 ERR! UNE CHOSE ANORMALE S'EST 139 LDY #$10 C'EST LE MEME DRIVE QUE CELUI 
PRODUITE UTILISE 
64 IBVMÆ EQU $20 ERR! LES VOLUMES LUS / VOULUS 140 CMP (IOBPL),Y AUPARAVANT ? 
DIFFERENT 141 BEQ OK OUI, PAS LA PEINE D'ATTENDRE LE 
65  IBNPER EQU $10 ERR! DISK PROTEGE CONTRE L'ECRITI MOTEUR 
66 142 STA (IOBPL),Y MAINTENANT, ON UTILISE CE DRIVE 
67 143 PLP SIGNALE QU'IL ETAIT ETEINT (TEST) 
COR 144 LDY 4500 
69  "mmmmmmmmmmmmmmmmmmnnmmmmmmmnnne 145 PHP 
70 146 © RŒR 
71 STY IOBPL AVANT D'ENTRER, AGY POINTENT SUR 147 BCC OK1 C=0 : DRIVE 1 UTILISE AVANT 
L'IoB 148 LDA DRVOEN, X ENGAGE LE DRIVE 1 
72 STA IOBPH 149 BCS DRVSEL C=1 : DRIVE 2 UTILISE AVANT 
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150 
151 


152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 


175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 


189 
190 
191 
192 
193 
194 
195 


196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 


216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 


1 LDA DRVIEN, X ENGAGE LE DRIVE 2 
DRVSEL ROR DRIVNO SAUVE LE NUMERO DE DRIVE UTILISE 
DANS C 
PLP 
PHP 
BNE DRVSEL2 
LDY #7 BOUCLE D'ATTENTE 
DRVSELI  JSR NAITARMOV 
DEY 
BNE DRVSEL1 
LDX $05F8 
DRVSEL2  LDY #4 CHARGE LA PISTE 
LDA (IOBPL),Y 
JSR MYSEEK ET VAS-Y 
PLP LE MOTEUR ETAIT ALLUME ? 
BNE TRYTRK SI OUI, NE PAS ATTENDRE 
LDY $47 
BPL TRYTRK 


* LE MOTEUR ETAIT ‘"OFF', ATTENDRE QU'IL PRENNE DE LA VITESSE 


MOTOF LDY #$12 DELAI DE 100 MICROSECONDE À CHAQUE 


FOIS 
CONWAIT DEY 
BNE CONWAIT 
INC MONTIME 
BNE MOTOF 
INC MONTIME+1 
BNE MOTOF 


* LE DISK EST À LA BONNE VITESSE, 
* ON PEUT LIRE... 

* SI CE N'EST PAS LA COMMANDE DE 
* FORMATAGE, LOCALISER LE SECTEUR 
* CORRECT POUR L'OPERATION 


TRYTRK LDY #$0C PRENDRE LE NUMERO DE CODE DE LA 


COMMANDE 
LDA (IOBPL),Y 


BEQ GALLDONE SI C'EST ZERO, C'EST TERMINE... 
CMP #$04 FORMATE LE DISK ? 
BEQ FORMDSK EH OUI ! 
RŒR C=1 POUR LIRE, C=0 POUR ECRIRE 
PHP A SAUVER 
BCS TRYTRK2 POUR L'ECRITURE, IL FAUT DES 
NIBBLES. 
JSR PRENIBL ON VA DONC EN FAIRE... 
TRYTRK2 LDY #$30 SEULEMENT 48 ESSAIS 
STY RETRYCNT 
TRYADR LDX SLOT MET LE NUMERO DE SLOT DANS X 
JSR RDADR LIRE LE CHAMP ADRESSE 
BCC RDRIGHT ÇA À MARCHE ! 
TRYADR2 DEC RETRYCNT ENCORE UNE ERREUR ! 
BPL TRYADR HMM ! ÇA PASSE POUR CETTE FOIS... 
TRYADR3 LDA CURTRK 
PHA SAUVE LA PISTE QU'ON VEUT 
LDA #$60 ON RE-CALIBRE ENCORE ! 
JSR SETTRK 
DEC SEEKCNT 
BEQ DRVERR 
LDA #4 
STA $04F8 
LDA #$00 VA SUR LA PISTE 0 
JSR MYSEEK 
PLA 
GOCAL JSR MYSEEK ET CETTE FOIS-CI VA À LA PISTE 
CORRECTE 
JMP TRYTRK2 


# LE CHAMP D'ADRESSE EST BIEN LU 
* S'ASSURER QUE C'EST LA PISTE, 
* SECTEUR ET LE VOLUME VOULU. 





RDRIGHT LDY TRACK ON EST À LA BONNE PISTE ? 
CPY CURTRK 
BEQ RTTRK SI OUI, C'EST BIEN 


* LE DRIVE ETAIT SUR UNE PISTE 
* DIFFERENTE. ESSAYE DE 
* RECALIBRER À PARTIR DE CETTE 





#* PISTE. 


LDA CURTRK SAUVE LA PISTE DE DESTINATION 


JSR SETTRK 


DEC $04F8 
BNE GOCAL ON VA RECALIBRER 
BEQ TRYADR3 SINON, ON VA TOUJOURS ICI 
DRVERR PLA ON RETIRE LA PISTE ACTUELLE 
LDA #IBDERR ERREUR ! 
JMPTOL PLP 
JMP HNDLERR 
GALLDONE BEQ ALLDONE 
FORMDSK JMP DSKFORM 


# LE DRIVE EST SUR LA BONNE PISTE, VERIFIE LE VOLUME 


RTTRK LDY #3 C'EST UN DISK ACCEPTABLE ? 
LDA (IOBPL),Y - CHARGE LE NUMERO DE VOLUME VOULU 
PHA SAUVE-LE 
LDA VOLUME CHARGE LE VOLUME ACTUEL 
LDY #$0E ET SAUVE LE... 
STA (IOBPL),Y 
PLA REPRENDRE LE VOLUME ATTENDU 
BEQ CORRECTVOL TOUS LES VOLUMES SONT ACCEPTES 
CMP VOLUME 
BEQ CORRECTVOL C'ETAIT LE BON VOLUME 
LDA #IBVMME CHARGE LE CODE DE L'ERREUR 
BNE JMPTOI TOUJOURS PRIS 
CORRECTVOL LDY #5 VERIFIE SI C'EST LE BON SECTEUR 
LDA (IOBPL),Y 
TAY 
LDA $BFB8,Y 
CMP $2D 
BNE TRYADR2 C'EST PAS ÇA ! 


PLP 
BCC HRIT C=1 : LIRE, C=#0 ECRIRE 
JSR READ ALORS VA DONC LIRE... 
PAP SAUVE LE STATUS DE LA LECTURE 
BCS TRYADR2 MAUVAISE LECTURE 
PLP 
LDX #0 ON VA DECODER TOUS LES NIBBLE POUR 
STX COMPTEUR AVOIR DE BEAUX OCTETS UTILISABLES 
JSR POSTNIBL 
LDX SLOT C'EST QUEL SLOT AU FAIT ? 
ALLDONE CLC 
HEX 24 AVEC LE PROCHAIN OCTET ÇA FAIT UN 
"BIT" 
HNDLERR SEC INDIQUE UNE ERREUR 
LDY #$0D DONNE LUI LE NUMERO D'ERREUR 


STA (IOBPL),Y 
LDA MOTOROFF,X ARRETE LE MOTEUR... 


RTS 

ARIT JSR WRITE VA ECRIRE LES NIBBLES MAINTENANT 
BCC ALLDONE PAS D'ERREUR. 
LDA #IBNWPER ERREUR ! HORREUR ! 


BCS HNDLERR 


#* C'EST LA ROUTINE QUI CHERCHE LA PISTE N DANS LE SLOT X/16 
* IF DRIVNO<O0 THEN DRIVE 0 
* IF DRIVNO>0 THEN DRIVE 1 


MYSEEK PHA 
LDY #$01 C'EST UN DISK À 2 PHASES ? 
LDA (DEVCTBL), Y 
RŒR CARRY = NOMBRE DE PHASES 


BCC SEEK 1 PHASE PAR PISTE ! 


SEEK STA TRKN SAUVE LA PISTE DE DESTINATION (*2) 
JSR XTOY MET Y = NUMERO DE SLOT 
LDA DRVOTRK, Y 
BIT DRIVNO 
BMI WASDO SI MOINS, DRIVE 1 
LDA DRVITRK, Y 
RASDO STA CURTRK C'EST OU ON SE TROUVE 
LDA TRKN ET ÇA, OU ON VA 
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312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 








BIT DRIVNO 

BMI ISDRVO 

STA DRVITRK, Y 

BPL GOSEEK 
ISDRVO STA DRVOTRK, Y 
GOSEEK JUMP SEEKABS 
XTOY TXA 


TOUJOURS PRIS 


REMUES-TOI 


RWTS 3 


S © © où En à Wu ON ha 


+= 


GRGRE 


(Assembleur BigMac) 


héhéhééééstéaéédéditédététététéhét 


DISK II 
FORMATEUR SEIZE SECTEURS 
($BEAF.BFA6) 


© PAR APPLE COMPUTER. 


* 
* 
* 
* 
* 
* 
* 
* 
* 
#*  DESASSEMBLE PAR P. NEVEU 
* 

* 


* 
* 
* 
* 
LA 
* 
* 
* 
* 
* 
* 
* 


ÉÉRELIELEELEZLELELLLLEELLLLLELELEE) 


ORG $BEAF 
oBJ $8000 
Ê—== ms mm MMMMSESEREEEE=====-— 
* 
* LABELS 
* 
fa z====—====2mMMMESSESEEEEEZ 
L2D EQU $2D 
BUFPTR EQU $3E POINTE SUR LA PAGE DE BUFFER DE 
TRAVAIL 
SECTNO EQU $3F NUMERO DE SECTEUR 
VOL EQU $41 NUMERO DE VOLUME 
TRKNO EQU 544 NUMERO DE PISTE 
SYNCOUNT  EQU $45 
IOBPL EQU 548 ADRESSE DE LA TABLE IOB 


RETRYCNT  EQU $0578 COMPTEUR D'ESSAIS 


TRANSFERE X/16 DANS Y 


HRITE 
READ 


RDADR 


EQU $B82A 
EQU $B8DC 


EQU $B944 


ECRIRE LES NIBBLES DES BUFFERS 
LIRE UN SECTEUR ET STOCKE LES 
NIBBLES 

LIT LE CHAMP ADRESSE 


* LE NIBBLE BUFFER: $BB00.BC55 


NIBLBUF 
NIBLBUF1 
NIBLBUF2 


HRTFORM 








DSKFORM 


EQU $BB00 
EQU $BBFF 
EQU $BCO0 
EQU $BC56 


EQU $BESA 
EQU $BE95 


EQU $C088 


LDY #$03 


LDA (IOBFL),Y 


STA VOL 


ADRESSE DE DEBUT DU BUFFER PFRIM 


ADRESSE DE DEBUT DU BUFFER 
SECONDAIRE 

CHAMP ADRESSE PENDANT 
L'INITIALISATION 

CHERCHE LA PISTE 


ETEINT LE MOTEUR 


RSS SSSSS—=S=S MMM BMSSES 


SSSR 


PREND LE VOLUME DESIRE 


STOCKE-LE ICI 


ONDRVO 
SETRTS 


CLNIBUF 


CLNIBUF1 


LDY #$02 
LDA (IOBPL),Y 


ROR DRIVNO 
JSR XTOY 


BIT DRIVNO 
BMI ONDRVO 
STA DRVITRK, Y 
BPL SETRTS 
STA DRVOTRK, Y 


LDA #$AA 
STA BUFPTR 


LDY #556 


LDA 4$00 

STA TRKNO 

STA NIBLBUFI,Y 
DEY 

BNE CLNIBUF 
STA NIBLBUF,Y 


DEY 
BNE CLNIBUF1 


LDA #$50 

JSR SETTRK 
LDA #$28 
STA SYNCOUNT 


CHARGE LE NUMERO DE DRIVE 


MIS DANS CARRY 
DANS DRIVNO 


NETTOIE LE BUFFER SECONDAIRE 
D'ABORD 

ON COMMENCERA PAR LA PISTE 0 
REMPLIR DE $00... 

DE HAUT EN BAS POUR LE SECOND 
PASSE AU PROCHAIN... 

PUIS FAIT LE PRIMAIRE 


EGALEMENT... 
JUSQU'A CE QUE ÇA SOIT TERMINE. 


$50 = 80 


$28 = 40, NOMBRE DE SYNC.BYTES 


* VA CHERCHER LA PISTE DESIREE 


TRKFORM 


LBEES 


ERROR 


DSKDONE 


TRKWRT 


LBF15 
LBF17 


LDA TRKNO 


JSR MYSEEK 
JSR TRKNWRT 
LDA #$08 


BCS ERROR 
LDA #$30 
STA RETRYCNT 
SEC 


DEC RETRYCNT 
BEQ ERROR 
JSR RDADR 
BCS LBEES 
LDA L2D 
BNE LBEES 
JSR READ 
BCS LBEES 
INC TRKNO 
LDA TRKNO 
CMP #$23 
BCC TRKFORM 
CIC 


BCC DSKDONE 
LDY #$0D 
STA (IOBPL),Y 


SEC 
LDA MOTOROFF, X 
RTS 


LDA #$00 
STA SECTNO 
LDY #$80 
BNE L8F17 
LDY SYNCOUNT 
JSR NWRTFORM 
BCS LBF87 
JSR WRITE 


BCS LBF87 
INC SECTNO 


PRENDRE LE NUMERO DE LA PISTE 
DESIREE 

SE METTRE AU DESSUS 

VA FORMATER LA PISTE EN QUESTION 
CHARGE UN CODE D'ERREUR AU CAS 
OU... 

S'IL Y À EU UNE ERREUR (C=1) 
48 ESSAIS SONT PERMIS 

SE LE RAPPELER ! 

C=1 AU CAS OU ON NE POURRAIT 
CONT INUER 

TENTE DE RE-ESSAYER 

MAIS C'EN EST TROP 

SINON, LIT LE CHAMP D'ADRESSE 
RE-ESSAYER SI C'EST RATE 


ERREUR ?! 

PUIS LIT LE RESTE DES DATAS 
SI C'EST RATE 

PASSE À LA PROCHAINE PISTE 


34 PISTES DEJA ? 

NON, ON CONTINUE 

SI, ALORS LE DISK EST FINI, SANS 
ERREUR 

TJS PRIS 

MET LE CODE D'ERREUR 

DANS LA TABLE IOB POUR ETUDE 
ULTERIEURE 

ET SIGNALE LA EN METTANT C=1 
ETEINT LE MOTEUR 

ET RETOURNER D'OU ON VIENT... 


COMMENCE AU 1ER SECTEUR DE LA PISTE 
L'ENREGISTRER 

128 SELF.SYNC A ECRIRE 

TJS PRIS 


VA ECRIRE LE CHAMP D'ADRESSE 
ERREUR !! 

VA ECRIRE LE CONTENU DES BUFFERS À 
NIB. 

HORREUR !1! 

PROCHAIN SECTEUR 
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117 LDA SECTNO ON EN EST OU EXACTEMENT ? 163 BNE VRFERRI 
118 CM #$10 16 SECTEURS DEJA ? 164 JSR READ ET VA LIRE LE CHAMP DATA 
119 BCC LBF15 PAS ENCORE, ON CONTINUE 165 BCC TRKHWRT IL N'Y À PAS D'ERREUR, SAUTE... 
120 166 VRFERRI DEC RETRYCNT 
121 LDY #$0F IL Y À 16 SECTEURS À MARQUER 167 BNE LBF71 ON PEUT RE-ESSAYER 
122 STY SECTNO 168 SEC PLUS D'ESSAI À FAIRE, C'EST RATE 
123 LDA #$30 48 ESSAIS MAXIMUM SONT AUTORISES 169 LBF87 RTS ALORS RENTRE À LA MAISON 
124 STA RETRYCNT STOCKE-LE POUR NE PAS L'OUBLIER 170 
125 LBF32 STA CARTE, Y Y METTRE DES $30 AUSSI... 171 * ROUTINE QUI MARQUE LA CARTE DES 
126 DEY 16 EN TOUT 172 * SECTEURS INITIALISES LORSQU'UN 
127 BPL LBF32 PAS UN DE MOINS ! 173 # SECTEUR EST VERIFIE 
128 174 
129 LDY SYNCOUNT ATTENDRE SELON SYNCOUNT 175  SCTMAP LDY L2D 
130  LBF3A JSR LBF87 12 CYCLES 176 LDA CARTE, Y CHARGE POUR VOIR... 
131 JSR LBF87 +12 CYCLES 177 BMI VRFERR IL Y À ERREUR, C'EST NEGATIF ! 
132 JSR LBF87 +12 CYCLES 178 LDA #$FF C'EST BON, ON VA Y METTRE $FF 
133 PHA + 3 CYCLES 179 STA CARTE, Y VOILA, C'EST FAIT 
134 PLA + 4 CYCLES 180 DEC SECTNO AU PROCHAIN SECTEUR 
135 N©Œ + 2 CYCLES 181 BPL VRFYTRK ET VERIFIE LES TOUS 
136 DEY + 2 CYCLES 182 LDA TRKNO ON EN EST A QUELLE PISTE ? 
137 BNE LBF3A + 4 SI PRIS, SOIT 51 AU TOTAL PAR 183 BNE LBFA6 PAS À LA DERNIERE EN TOUT CAS 
TOUR 184 LDA SYNCOUNT 
138 185 CMP #$10 
139 JSR RDADR VA LIRE LE CHAMP ADRESSE 186 BCC LBF87 
140 BCS LBF71 SI IL Y À UNE ERREUR 187 DEC SYNCOUNT SI SYNC.COUNT > 16 
141 LDA L2D LECTURE CORRECTE, ON EST AU 188 DEC SYNCOUNT 
SECTEUR 0 ? 189 LBFA6 CIC C'EST FINI, ET SANS ERREUR 
142 BEQ VERIFY OUI, ALORS VERIFIE 190 RTS 
143 LDA #$10 NON. 191 
144 CMP SYNCOUNT 192 * CETTE CARTE COMMENCE EN $BFA8 
145 LDA SYNCOUNT 193 * ET CONTIENT LES SECTEURS 
146 SBC #$01 194 * INITIALISES: 
147 STA SYNCOUNT 195 *+ $30 AVANT, $FF APRES. 
147 CMP #$05 196 * ( $BFA8.BFB7 }) 
149 BCS LBF71 197 
150 SEC 198 CARTE EQU * 
151 RTS 199 
152 200 LST OFF 
153 VRFYTRK JSR RDADR VERIFIE LE CHAMP ADRESSE 201 
154 BCS VRFERR IL Y A EU UNE ERREUR 202 hététééééétététééétédiädétitithé#*# 
155  VERIFY JSR READ VERIFIE LE CHAMP DATA 203 * . 
156 BCC SCTMAP PAS D'ERREUR, SAUTE PAR DESSUS 204 #* SOURCES : # 
157 VRFERR DEC RETRYCNT RE-ESSAYE DEPUIS LE DEBUT 205 # ; 
157 BNE VRFYTRK 206 * -BENEATH APPLE DOS ; 
159 LBF71 JSR RDADR LIRE LE CHAMP ADRESSE 207 # -POM'S 9 * 
160 BCS VRFERRI ERREUR SUR LE CHAMP ADRESSE ! 208 * -CALL APPLE : ALL ABOUT DOS * 
161 LDA L2D 209 * 4 
162 CMP #50F 210 hékéttiééététééétététtitithhhétésh 


Vous avez un Apple {le avec Chat Mauve ou un lc ? 
Vous disposez de Pascal 1.2 ? 


Profitez de l'interpréteur CO O 


Par Nicolas Montsarrat 
Il s'agit d'un système graphique double-haute NOR PSE 


résolution écrit en Pascal. 
COGO vous permet de manipuler des graphiques Ce programme, destiné à résoudre des problèmes de 
grâce à un langage de description des objets géométrie plane, comporte des instructions. de : 
- points, angles- et à l'emploi de fonctions primitives … stockage sur fichier afin de permettre la reprise 
de manipulation très puissantes : cercle, tangente, d'un calcul. 
intersections, parallèles, etc. IE est ainsi possible 
de tracer des grilles, des cercles, des segments de NB : Sur l'Apple //c, l'affichage se fait en simple 
droite, des tangentes communes à deux cercles, de haute résolution. 
calculer des distances, des angles. 





L'éditeur permet une saisie rapide du langage. 





la saisie pour faciliter La mise au point, ou 7 À : 
nc | Bon de co tiende. page ‘74 
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Ce programme vous permet de décrypter des secteurs codés. 
Il contient différents algorithmes qui ont chacun pour 
fonction, d'une manière différente, d'effectuer le décodage 
d'informations cryptées. Il vous offre ainsi la possibilité de 
voir afficher en clair du texte codé mémorisé à un 
emplacement donné. Ceci est particulièrement utile, par 
exemple pour voir afficher les textes de nombreux jeux 
d'aventure, dont les réponses sont la plupart du temps 
cryptées par les auteurs du logiciel. 


>>) 


7 » 


RTE PVR 


Attention : cette fonction ne 
vous est procurée que pour vous 
permettre de profiter au maximum 
de vos logiciels d'aventure, en 
permettant d'aller plus avant grâce 
à l'aide fournie par le décodage. 
Au lieu d'en rester aux trois 
premières images du jeu, vous 
pouvez aller beaucoup plus loin et 
profiter bien plus pleinement de 
votre logiciel d'aventure. En 
aucun cas cependant, vous ne 
pouvez utiliser cette capacité de 
décryptage en portant atteinte aux 
droits des auteurs du logiciel que 
vous êtes parvenu à décrypter. 


Il existe bien entendu d'autres 
utilisations possibles de ce logiciel 
dont le mode précédent ne 
constitue qu'un exemple : il vous 
est ainsi loisible d'appliquer des 
techniques de décodage à n'im- 
porte quel texte, qu'il s'agisse de 


Programme 


DECR.SOURCE 
(Assembleur Lisa 2.5) 


NDLR: les numéros de ligne non 
affectés correspondent à des lignes 


vides ("44 ; ", par 
exemple). 
1 NLS 
2 WNDLFT EPZ $20 
3 WNDWDTH EPZ WNDLFT+$1 
4 WNDTOP  EPZ WNDWDTH+S$1 
5 WNDBTM EPZ WNDTOP+$1 
6 CH EPZ $24 
7 CV EPZ CH+$1 
8 CKSW EPZ $38 
10 SPDBYT EPZ $F1 
11 WARMST  EQU $3D0 
12 COLDST EQU $303 
13 INTDOS  EQU $3EA 
14 SOFTEV EQU $3F2 


EU 


Paul F a 


fichiers, de programmes, ou d'in- 
formations quelconques. Vous 
pouvez également vous livrer au 
plaisir du décodage, en tant 
qu'exercice intellectuel. 

D'autre part, le programme vous 
permet également d'effectuer des 
vérifications sur des informations 
que vous avez préalablement 
codées, et de vous assurer que le 
cryptage est correct. 


Une fonction particulière permet 
par ailleurs de voir afficher très 
rapidement la totalité des carac- 
tères d'un secteur, sur l'écran de 
l'Apple; il est ainsi possible d'ob- 
tenir une vue d'ensemble de ce 
qui se trouve sur la totalité de la 
disquette; ceci vous permet 
notamment de déterminer à quels 
emplacements se trouvent les 
informations cryptées et celles qui 
ne le sont pas. 


15 IRQLOC 
16 KBD 

17 KBDSTRB 
18 SPKR 
19 TXTCLR 
20 TXTSET 
21 MIXCLR 
22 LOWSCR 
23 MISCR 
24 LORES 
25 HIRES 
26 STROUT 
27 RND 

28 PRNTYX 
29 PRNTAX 
30 PRBLK2 


EQU $3FE 

EQU $C000 
EQU $C010 
EQU $Cc030 
EQU $C050 
EQU TXTCLR+$1 
EQU TXTSET+$1 
EQU MIXCLR+$1 
EQU LOWSCR+$1 
EQU MISCR+$1 
EQU LORES+$1 
EQU $DB3A 
EQU $EFAE 
EQU $F940 
EQU $F941 

EQU $F94A 

31 BASCALC EQU $FBCI1 

32 BS EQU $FC10 

33 VS EQU $FCIA 

34 VTAB EQU $FC22 

35 HOME EQU $FC58 

36 LF EQU $FC66 

37 RDKEY EQU $FDOC 

38 KEYIN EQU $FD1B 

39 PRBYTE EQU $SFDDA 

40 COUT EQU $FDED 


Au début, vous choisissez une 
piste et un secteur à décrypter; 
lorsque cette sélection est faite, 
vous entrez immédiatement dans 
l'écran de décryptage, qui offre 
une vision complète des 256 
caractères présents dans le secteur 
choisi. 


Note : si le code du caractère est 
celui d'un caractère de contrôle, 
un point est affiché à la place du 
caractère. 


A droite et en haut du texte 
apparaît le filtre, élément fonda- 
mental du décryptage que vous 
allez ensuite appliquer au texte, et 
qui se compose de trois parties : 
octet 1, octet 2 et octet 3. 


En bas et à droite se trouvent deux 
mémoires, MEM1 et MEM2, qui 
seront ensuite utilisées par 
certains algorithmes. 


En bas et à gauche de l'écran 
apparaît la commande, en carac- 
tères inversés. Vous sélectionnez 
les commandes à l'aide des 
touches "flèche à droite", "flèche 
à gauche", et "Return". 


Faites votre choix à l'aide des 
deux flèches, et validez la com- 
mande choisie avec un "Return". 


41 SETINV EQU $FE80 
42 SETNORM EQU $FE84 
43 OUTPORT EQU $FE95 
46 ; 


47 BELL EQU $87 

48 LARROW  EQU $88 

49 RETURN  EQU $8D 

50 RARROW EQU $95 

51 ESC EQU $9B 

52 CTRLZ EQU $9A 

55 

56 ORA EQU $09 

57 EOR EQU $49 

58 AND EQU $29 

59 ASL EQU $0A 

60 LSR EQU $4E 

62 ; 

63 JSR INITVECT 

64 INTRO JSR HOME 

65 JSR PRINT 

66 HEX 8D8D8D 

67 ASC "PROGRAMME DE DECRYPTAGE" 
68 HEX 8D 

69 ASC mm mm mm " 
70 HEX 8D 

71 ASC "DE SECTEURS CODES PAR * 
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Les différentes 
fonctions 


Pour décrypter, l'outil dont vous 
devrez user judicieusement est le 
"filtre". I] faut spécifier certaines 
valeurs dans les trois octets qui le 
composent; dans certains cas, ceci 
est cependant réalisé directement 
par le programme; aucune con- 
naissance du langage machine 
n'est requise pour l'utilisation des 
fonctions principales. Certaines 
fonctions, lorsqu'elles sont sélec- 
tionnées, agissent directement sur 
le filtre, et la modification effec- 
tuée sur ce dernier est affichée 
instantanément à l'écran. 

Ainsi, le "ou logique", le "et 
logique" et le "ou exclusif", parmi 
les commandes, agissent direc- 
tement sur le filtre : le code 
opération en langage machine de 
l'opération choisie s'inscrit dans 
l'octet 1 du filtre. 


Pour agir directement sur le filtre, 
vous disposez de six fonctions 
accessibles par les commandes; en 
général, vous n'agirez directement 
que sur l'octet 2 du filtre; la 
modification des octets 1 et 3 du 
filtre est dangereuse et ne vous 
sera utile que si vous avez des 
connaissances suffisantes en lan- 
gage machine. 

Voici les six commandes qui 
agissent directement sur le filtre : 


+ _Incrémenter octet 1 : ajoute 1 
en hexadécimal à l'octet 1 du 
filtre; 





72 HEX 8D 
73 ASC "UTILISATION D'UN FILTRE" 
74 HEX 8D 
75 ASC Mme mn NT 
76 HEX 8D8D8D 
77 ASC " PAR PAUL FRANCESCHI" 
78 HEX 8D 
79 ASC " COPYRIGHT 1985." 
80 INV "VERSION 1.1" 
81 HEX 00 
84 ; 
85 TESTO  LDA KBD 
86 BPL TESTO 
87 BIT KBDSTRB 
88 ; 
89 ECR2 JSR HOME 
90 JSR PRINT 
91 ASC "CE PROGRAMME VOUS 
PERMET D'AFFICHER LE" 
92 HEX 8D 
93 ASC "CONTENU D'UN SECTEUR 
DE MULTIPLES FA-" 
94 HEX 8D 
95 ASC "CONS, EN COMMUTANT À 
CHAQUE FOIS UN" 


96 HEX 8D 




















+ Décrémenter octet 1 : enlève 1 
en hexadécimal à l'octet 1 du 
filtre; 

+ _Incrémenter octet 2 : ajoute 1 à 
l'octet 2 du filtre; 

+  Décrémenter octet 2 : enlève 1 
à l'octet 2 du filtre; 

+ __Incrémenter octet 3 : ajoute 1 à 
l'octet 3 du filtre; 

+  Décrémenter octet 3 : enlève 1 
à l'octet 3 du filtre. 


Dans tous ces cas, vous devez 
sélectionner la commande voulue, 
puis la valider avec "Return". En 
maintenant constamment la pres- 
sion sur la touche "Return", on 
obtient une incrémentation ou 
décrémentation très rapide. 


OU logique 

Cet algorithme réalise un "ou 
logique" avec la valeur spécifiée 
dans l'octet 2 du filtre, pour 
chacun des 256 octets du secteur 
sélectionné. La valeur 09, qui est 
le code-opération du "ORA" en 
langage-machine, est placée dans 
l'octet 1 du filtre. 


ET logique 

Ce deuxième algorithme réalise un 
"et" avec la valeur spécifiée dans 
l'octet 2 du filtre. La valeur 29, 
code-opération du "AND", se 
trouve dans l'octet 1 du filtre. 


OU exclusif 


Idem. Réalise un "ou exclusif" 
avec la valeur placée dans l'octet 2 
du filtre. Le code-opération du 


97 ASC "FILTRE, MATERIALISE 
PAR TROIS OCTETS." 

98 HEX 8D 

99 HEX 8D 

100 ASC "VOUS POUVEZ AINSI 
VISUALISER UN SECT-" 

101 HEX 8D 

102 ASC "EUR AVEC UN FILTRE 
CLAIR, FONCE, OPA-" 

103 HEX 8D 

104 ASC "QUE OU ORANGE; VOTRE 
VISION PEUT ETRE" 

105 HEX 8D 

106 ASC "FLOUE, PRECISE, DE 
HAUT, DE PRES , DE " 

107 HEX 8D 

108 ASC "BIAIS, OU EXTRALUCIDE..." 

109 HEX 8D8D8D 

110 ASC "ALORS, QUEL SECTEUR 
DESIREZ-VOUS LIRE?" 

111 HEX 8D8D8D 

112 INV " PISTE - 

113 HEX 8D8D 

114 INV ®* SECTEUR nd 

115 HEX 00 


"EOR", 49, est placé dans l'octet 
1 du filtre. 


Echange de bits 


Cet autre algorithme effectue un 
échange entre deux bits donnés de 
chaque octet parmi les 256 du 
secteur choisi. On précise dans 
MEMI et MEM2 une valeur entre 
0 et 7, qui est le rang des 2 bits 
dont on veut effectuer la permu- 
tation. Avant d'utiliser cet algo- 
rithme, vous devez donc spécifier 
deux valeurs différentes, compri- 
ses entre 0 et 7, pour les deux 
variables utilisées par l'algo- 
rithme, MEMI1 et MEM2. Pour 
modifier ces valeurs, utilisez les 
commandes suivantes : 


+ Incrémenter MEM]1 : ajoute 1 
en hexadecimal à la valeur 
actuelle de MEM1. 

+ Décrémenter MEMI : enlève 1 
à MEMI. 

+ Incrémenter MEM2 : ajoute 1 à 
MEM?2. 

+  Décrémenter MEM!2 : enlève 1 
à MEM?2. 


Lire secteur 


Cette commande permet de lire et 
d'afficher le contenu d'un nou- 
veau secteur dont vous spécifiez 
les coordonnées. Un filtre neutre 
(EA EA EA) est appliqué à ce 
secteur, qui apparaît tel qu'il est 
mémorisé. 

Exécution 


Cette commande réalise l'affi- 
chage des 256 caractères du 
secteur choisi, en lui appliquant le 
filtre courant. 


118 LDA #!14 

119 STA INP2CH 
120 LDA #!15 

121 STA INP2CV 
122 JSR ASCONV2 
123 LDA ASCV2RES 
124 STA IBTRK 
125 ; 

126 LDA #114 

127 STA INP2CH 
128 INC INP2CV 
129 INC INP2CV 
130 JSR ASCONV2 
131 LDA ASCV2RES 
132 STA IBSECT 
134 ; 

135 LDA #110 

136 STA CH 

137 LDA #122 

138 STA CV 

139 JSR VTAB 
140 JSR PRINT 
141 BLK "ESPACE POUR CONTINUER" 
142 HEX 00 


146 ; 


147 TEST LDA KBD 
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Piste suivante 


Cette option affiche les 256 
caractères du secteur de la piste 
suivant la piste actuelle; le numéro 
actuel du secteur est conservé. Le 
filtre reste le même. Cette option 
permet d'aller très rapidement de 
piste en piste, et de passer ainsi en 
revue toute la disquette. En 
maintenant constamment le doigt 
sur la touche "Return", vous 
effectuez un parcours à grande vi- 
tesse de la totalité de la disquette. 


Secteur suivant 


Le secteur suivant est lu, en 
conservant le filtre courant. Ceci 
permet d'appliquer un même filtre 
à une série de secteurs, sans avoir 
de manipulation à effectuer. 


La démarche à suivre pour 
effectuer un décodage est géné- 
ralement la suivante : 

* on réalise le décryptage d'un 
secteur précis à l'aide d'un 
filtre donné; 

+ lorsque ce filtre a fonctionné, 
on l'applique à tous les sec- 
teurs suivants. 


Ctrl-Z 


À tout moment, vous pouvez 
effectuer une copie sur im- 
primante des caractères qui sont 
affichés à l'écran, avant ou 
surtout après décodage. Com- 
binée avec l'option "Secteur 
suivant", cette commande permet 
de réaliser des listings de secteurs 
décodés, de façon très rapide et 
commode. 


148 BPL TEST 

149 BIT KBDSTRB 

150 

151 JSR HOME 

152 JSR PRINT 

153 ASC * L 

154 ASC MRRRRRRRRRRRRRRRRRAN 
155 HEX 8D 

156 ASC " F 

157 ASC "* DECRYPTEUR 1.0 *" 
158 HEX 8D 

159 ASC ” É 

160 ASC LERLELELRELELLLELLLESEZLL 
161 HEX 00 

162 JSR AFFTRSC 

163 JMP AFFS 


165 AFFTRSC LDA #4 


166 STA CV 

167 JSR VTAB 

168 LDA #0 

169 STA CH 

170 JSR PRINT 
171 ASC "PISTE " 
172 HEX 00 


Espace 


En appuyant sur la barre d'espa- 
cement, une incrémentation auto- 
matique de l'octet 2 du filtre est 
réalisée, en même temps que le 
filtre nouveau est appliqué aux 
256 octets du secteur choisi. Cette 
commande rend possible un test 
très rapide des différentes valeurs 
susceptibles d'être utilisées par les 
algorithmes "ou exclusif”, "et 
logique", "ou logique”. Elle 
permet de tester les 256 valeurs 
(00 à FF) que peut prendre l'octet 
2 du filtre, de façon très rapide et 
sans manipulation. 


Ctrl-Reset 
Ramène au début du programme. 


Si vous utilisez pour la première 
fois ce programme, voici la 
manière la plus simple de 
procéder. 


Sélectionnez une piste et un 
secteur au hasard et réalisez-en 
l'affichage. 

A l'aide de la touche "flèche à 
droite", sélectionnez l'option 
"Piste suivante", et validez-la avec 
"Return". 

Appuyez sans arrêt sur "Return" 


pour obtenir une vision rapide du 
contenu de la disquette. Votre but 





174 JSR PRBYTE 
175 JSR PRINT 
176 ASC " SECTEUR " 
177 HEX 00 

178 LDA IBSECT 
179 USR PRBYTE 
180 RTS 

182 

183 AFFS LDA #0 

184 STA COMPT 
185 STA BUF 

186 LDA #$560 
187 STA BUF+$1 
188 

189 JSR RNWTS 
190 JSR AFF.256 
192 

193 LDA #133 
194 STA CH 

195 LDA #2 

196 STA CV 

197 JSR VTAB 
198 JSR PRINT 
199 ASC "FILTRE" 
200 HEX 00 

201 LDA #133 


est de trouver les emplacements 
du texte codé : vous les recon- 
naîtrez en facilement, car le texte 
codé ne présente en principe 
jamais plus de deux caractères 
consécutifs identiques ! 

Lorsque vous avez trouvé un 
secteur répondant à cette défi- 
nition, vous pouvez supposer que 
vous êtes en présence de texte 
crypté. 

La démarche consiste alors à 
effectuer le décodage du secteur 
supposé crypté. Vous allez utiliser 
à cet effet tous les algorithmes. 
Commencez par sélectionner le 
"ou logique", à l'aide de la touche 
flèche à gauche, et validez avec 
"Return"; ensuite, il vous suffit 
d'appuyer sur la barre d'espa- 
cement pour obtenir un test du 
filtre avec la variable qu'il utilise, 
l'octet 2. Vous démarrez avec 
l'octet 2 à la valeur EA; faites le 
test pour les 256 valeurs possibles 
de l'octet 2. 

Si aucun texte n'est encore 
apparu, faites la même opération 
avec le "et logique", puis le "ou 
exclusif". Si cela ne marche 
toujours pas, testez avec 
l'algorithme d'échange de bits, en 
utilisant toutes les valeurs 
possibles. 

Si vous parvenez à afficher un 
texte, c'est que l'algorithme a 
réussi; dans ce cas, revenez à la 
valeur précédente de l'octet 2 (car 
la barre d'espacement incrémente 
systématiquement son contenu) à 
l'aide de la commande "décrémen- 
ter octet 2"; placez-vous ensuite 
sur l'option "secteur suivant” et 





202 STA CH 

203 LDA #3 

204 STA CV 

205 JSR VTAB 
206 JSR PRINT 
207 ASC ==mmum— LL 
208 HEX 00 


213 :INITIALISE LE FILTRE ET L'AFFICHE 


214 LDA #$EA 
215 STA FILI 

216 STA FIL2 

217 STA FIL3 

218 JSR AF.FIL 
221 ; 

222 LDA #33 

223 STA CH 

224 LDA #120 

225 STA CV 

226 JSR VTAB 

227 JSR PRINT 

228 ASC "M.1 M.2" 
229 HEX 00 

230 

231 JSR AF.MEM 
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vous pourrez visualiser les 
secteurs voisins avec ce filtre 
efficace. A chaque affichage, 
vous pouvez effectuer une copie 
du texte décodé avec "Ctrl-Z". 


DT 4 
pour contin” 


La liberté de manipulation du filtre 
qui vous est laissée vous permet 
de spécifier un "JSR" à un 
sous-programme de décryptage 
qui vous est propre, et tiendra lieu 
de filtre; placez pour cela le 
code-opération du "JSR" dans 
l'octet 1 du filtre, et son adresse 
dans les octets 2 et 3, dans l'ordre 
partie basse-partie haute. 


Insérez votre routine personnelle 
de décodage à partir de l'adresse 
$2000, en veillant à restituer les 
registres en fin de sous- 
programme. 


A titre d'exemple, nous avons 
trouvé les filtres permettant de lire 
les dictionnaires de Paranoïak, 
Incredible Hulk, Critical 
Mass. Vous comprendrez qu'il 
est difficile dans donner la liste 
dans ces colonnes. 


NB : Dans tous les cas, vous 
avez accès au vocabulaire du jeu 
qui n'est généralement pas codé, 
grâce à l'éditeur de secteur, et il 
est très simple d'en obtenir une 
impression avec Ctrl-Z. a 


234 LDA #0 


235 STA OPIND 
236 STA OPCH 
237 LDA #120 

238 STA OPCV 
239 LDA #1!18 
240 STA OPINDMAX 
241 JSR OPAFF 
242 UMP OPTEST 


247 : 
248 AFF.256 LDA #0 
249 STA CH 


250 STA COMPT 
251 LDA #8 
252 STA CV 
253 JSR VTAB 
254 LDY #0 
255 AFSUIV LDA (BUF),Y 
256 NOP 

257 FILI NOP 

258 FIL2 NOP 

259 FIL3 NOP 

260 CMP 4580 
261 BLT >2 


Suite du source page 34 = 
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Une nouvelle disquette Pom's : 


P-Format j}] 


Par J. Gouzy 


Sur Apple ][+ 48 Ko ou //e 
avec ImageWriter 


Ce programme s'utilise en complément d'un éditeur de texte, 
AppleWriter par exemple. Les textes à imprimer sont enrichis de 
codes de contrôle destinés à P-Format ][, puis sauvegardés 
sur disquette en format texte. P-Format lit ce fichier et pilote 
l'imprimante. De nouvelles possibilités sont alors disponibles : 


Justification : 
Droite, Gauche, Totale, Centrée, Page paire à droite et impaire 
à gauche de façon automatique. La justification n'est 
pas perturbée par les caractères du type é ou à. 


Polices de caractères : 
Changement simplifié pour passer du é français au { américain 
ou B allemand par exemple. 


Style d'impression : 
Simple ou double largeur, Gras ou non, Souligné ou non, 
en mode proportionnel, au sein d'une même ligne sans perte 
de la justification. 


On peut obtenir en justification totale, 
des caractères larges, des 


caractères gras, ainsi que des caractères 


soulignés. 


Mode Mathématique : 
FOx+8y) DC 44 


= fcost3,x tn = 
Lim Â(x+e,y-€) 
€ 


Mode graphique: 
D sé Présentation d’une boucle d’as 


pat 
Correcteur Lcorrecteur | ami 


Boucle de retour 


.…tabulation, entête, numérotation des pages. 


P-Police }] 
Sur Apple //e 128 Ko 


Sur la même disquette, ce programme vous permet d'éditer en 
double haute résolution les polices de caractères personnalisées 
de l'ImageWriter. 


P-Format ][ et P-Police ][ : 200,00F avec documentation 
Bon de commande page 74 





34 


262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
293 
294 
295 
296 
297 
298 
299 
300 


CMP 
BGE 


45A0 
>2 


:AFFICHE UN POINT 
:SI CARACT DE CONTROLE 


% 


315 ; 


316 
317 
318 
219 
320 
321 

322 
323 
324 

325 
326 
327 
328 
329 
330 
331 

332 
333 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 


353 ; 


354 
355 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 


JA À 


375 
376 
377 
378 
379 
380 


10B 
IBRVN 
IBTRK 
IBSECT 
IBDCTP 
IBUFFP 
IBCMD 
IBSTATT 
DEVTPC 


AF.FIL 


PRNTLOOP 


LDA 


#$AE 


#DEVTPC 
IBDCTP 
/DEVTPC 
IBDCTP+$1 
/10B 

110B 

$3D9 


,$60 
0 


1 
1 
0 
0 
(J 
0 
1 


, 0 
,$60,0,0 


0,0,$60,1 
0,1,$EF, $D8 


#5 


$8 
ADRL+1 


$105,Xx 
ADRL 
$106,X 
ADRH 

#1 


(ADRL) ,Y 
PRNTDONE 
$FDED 
ADRL 
PRNTLOOP 
ADRH 


381 

382 ; 

383 PRNTDONE 
384 

385 

386 ; 

387 PRNDNO 
388 

389 

390 

Fc à à 

392 

393 

394 

395 

396 

397 

398 

404 ; 

405 ASCONV 
406 

407 

408 

409 

410 

411 

412 

413 

414 “1 
415 

416 "2 
417 

419 ; 

420 ASCVRES 
426 ; 

427 ASCONV2 
428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439° 

440 

441 

442 

443 

444 

445 

446 

447 

448 

450 ; 

451 ASCV2RES 
452 INP2CH 
453 INP2CV 
461 ; 

462 OPAFF 
463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

475 : 

476 OPEFF 
477 

478 

479 

480 

481 

482 

483 

485 ; 

486 OPTEST 
487 

488 

489 

490 

49] 

492 

493 

494 

495 

496 

497 

498 


PRNTLOOP 


ADRL 
PRNDNO 
ADRA 


ADRL 
$105,Xx 
ADRA 
$106,X 


VTAB 
SETINV 
OPIND 
TABLEB, X 
TABLEH, X 
STROUT 
SETNORM 


499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
595 
596 


#2 


#1 


*4 


+3 


*5 


26: 


“ul 


de 


3 


‘4 


+5 


6 


27 


*8 


Li 


F4 


OPAFF 
OPTEST 
#RARROK 
>3 
OPEFF 
OPIND 
OPIND 
OPINDMAX 
>4 
#0 
OPIND 
OPAFF 
OPTEST 
#RETURN 
>5 
OPIND 
#0 
>1 
FILI 
AP.FIL 
OPTEST 
#$A0 
>6 
AFF.256 
FIL2 
AF.FIL 
OPTEST 
#CTRLEZ 
OPTEST 
PRINT256 
OPTEST 
#1 
>2 
FILI 
AF.FIL 
OPTEST 
#2 
>3 
FIL2 
AF.FIL 
OPTEST 
LE] 
>4 
FIL2 
AF.FIL 
OPTEST 
#4 
>5 
FIL3 
AF.FIL 
OPTEST 
#5 
>6 
FIL3 
AF.FIL 
OPTEST 
#6 
>7 
#AND 
FILI 
#$EA 
FIL3 
AF.FIL 
OPTEST 
17 
>8 
#0RA 
FILI 
#$EA 
FIL3 
AF.FIL 
OPTEST 
#8 
>9 
#EOR 
FILI 
#$EA 
FIL3 
AF.FIL 
OPTEST 
#9 
>1 
#520 
FILI 
#ECH2BITS 
FIL2 
/ECH2BITS 
FIL3 
AF.FIL 
MEMI] 
ECHE1 
MEM2 
ECHE2 
AFF.256 
OPTEST 


#!10 
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597 BNE >2 

598 NOP 

600 ; 

691 JMP ECR2 
602 : 

603 “2 CMP #!11 
604 BNE >3 

605 JSR AFF.256 
606 UMP OPTEST 
607 “3 CMP #112 
608 BNE >4 

609 INC MEMI1 
610 JSR AF.MEM 
611 UMP OPTEST 
612 ‘4 CMP #113 
613 BNE >5 

614 DEC MEM1 
615 JSR AF.MEM 
616 JMP OPTEST 
617 "S CMP #!14 
618 BNE >6 

619 INC MEM2 
620 JSR AF.MEM 
621 JMP OPTEST 
622 "6 CMP #115 
623 BNE- >7 

624 DEC MEM2 
625 JSR AF.MEM 
626 JMP OPTEST 
627 "7 CMP #116 
628 BNE >8 

629 INC IBTRK 
630 LDA IBTRK 
631 CMP 4#$23 
632 BNE OPSUIVI 
633 LDA #0 

634 STA IBTRK 
635 OPSUIVI JSR AFFTRSC 
636 JSR RTS 
637 JSR AFF.256 
638 JMP OPTEST 
639 “8 CMP #117 
640 BNE OPTXIT 
641 INC IBSECT 
642 LDA IBSECT 
643 CMP #$10 
644 BNE OPSUIV2 
645 LDA #0 

646 STA IBSECT 
647 OPSUIV2 JSR AFFTRSC 
648 JSR RATS 
649 UJSR AFF.256 
650 UMP OPTEST 
651 OPTXIT UMP OPTEST 
654 ; 

655 RTS 

658 ; 

659 OPCV BYT !18 

660 OPCH BYT 0 


661 OPIND BYT 0 
662 OPINDMAX BYT 16 


667 ; 

668 C1 ASC "INCREMENTE OCTET 1" 
669 HEX 00 

670 C2 ASC "DECREMENTE OCTET 1" 
671 HEX 00 

672 C3 ASC "INCREMENTE OCTET 2" 
673 HEX 00 

674 C4 ASC "DECREMENTE OCTET 2" 
675 HEX 00 

676 C5 ASC "INCREMENTE OCTET 3" 
677 HEX 00 


678 C6 ASC "DECREMENTE OCTET 3" 
679 HEX 00 
680 C7 ASC "ET LOGIQUE" 


681 HEX 00 
682 C8 ASC "OU LOGIQUE" 
683 HEX 00 
684 C9 ASC "OU EXCLUSIF" 
685 HEX 00 


686 C10 ASC "ECHANGE DE BITS" 
687 HEX 00 

688 C11 ASC "LIRE SECTEUR" 
689 HEX 00 

690 C12 ASC "EXECUTION" 

691 HEX 00 

692 C13 ASC "INCREMENTE M.1" 
693 HEX 00 

694 C14 ASC "DECREMENTE M.1" 
695 HEX 00 

696 C15 ASC "INCREMENTE M.2" 
697 HEX 00 

698 CI6 ASC "DECREMENTE M.2" 
699 HEX 00 

700 C17 ASC "PISTE SUIVANTE" 
701 HEX 00 

702 C18 ASC "SECTEUR SUIVANT" 





703 


707 ; 


708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 


726 ; 


727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
752 
753 
754 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
794 
795 
797 
798 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
821 
822 
824 
825 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 


HEX 


TABLEB 


TABLEH 


OCTRES 


OCTIOCT8: 


‘ 


"1 


Lt 


23 


O108SAVY 


OCT8OCT1 : 


gr" 


90 


BYT 
BYT 
BYT 
BYT 
BYT 
BYT 
BYT 
BYT 
BYT 
BYT 
BYT 
BYT 
BYT 
BYT 
BYT 
BYT 
BYT 
BYT 


HBY 
HBY 
HBY 
HBY 
HBY 
HABY 
HBY 
HBY 
HBY 
ABY 
HBY 
HBY 
HBY 
HBY 


HEX 
HEX 


STY 
CLC 
LDY 
LSR 


BYT 


c1 
c2 
c3 
C4 
cs 
cé 
c7 
cg 
c9 
c10 
c11 
C12 
c13 
C14 
c15 
c16 
c17 
c18 


00000000 
00000000 


O108SAVY 


#5 
<1 
O108SAVY 


O801SAVY 
#0 
O8O1RES 
57 
OCTRES, Y 
>2 


O8O1RES 
>3 


O8OIRES 


<1 


OB8O1RES 
O801SAVY 


ECH2BITS: 


ECHE1 
ECHE2 


ECHRES 
ECBSAVX 


ALG1 


Li : 


ALG2 


ALG3 


ALG4 


ALGS 


ALG6E 


21 


de | 


LDY 
RTS 


BYT 
BYT 


STX 


LDA 
STA 
LDX 
RTS 


BYT 
BYT 


BYT 
BYT 


CLC 


O801SAVY 962 
963 
964 
0 965 “1 
0 966 
267 
268 
971 ; 
ECBSAVX 972 ALG9 
OCTIOCTE 973 
ECHEI 974 
OCTRES, x 375 
976 
ECHE2 977 
OCTRES, X 978 
ECHEI 979 
OCTRES, X 380 *1 
ECHE2 981 
982 
OCTRES, X 983 
OCT8OCT1 989 ; 
OBO1RES 990 SOUNDO: 
ECHRES 991 
ECBSAVX 992 
993 "1 
994 
0 995 
0 996 "2 
997 
0 998 
0 999 
1000 
1001 
MEM] 1002 *3 
1003 
MEMI 1004 
>1 1005 
SOUNDO 1006 
MEN] 1007 
AF.MEM 1008 
1011 ; 
1012 SOUNDI: 
1013 
1014 
1015 
SOUNDO 1016 
1017 
1018 "3 
1019 “1 
1020 
1021 
SOUNDO 1022 
1023 
1024 
1025 
1026 
1027 
1028 “2 
SOUNDO 1031 ; 
1032 SFLAG 
1033 SNDSAVA 
1034 SNDSAVX 
1035 SNDSAVY 
1038 ; 
1039 SNDSAVRG 
SOUNDO 1040 
1041 
1042 
1045 ; 
1046 SNDRSTRG 
1047 
MEM1 1048 
1049 
MEMI 1056 ; 
>1 1057 PRINT256 
SOUNDO 1058 
MEMI 1059 
AF.MEM 1060 
1061 ; 
1062 
1063 
1064 ; 
1065 
MEM1 1066 
1067 
MEMI 1068 "1 
>1 1069 PFILI 
SOUNDO 1070 PFIL2 
MEMI 1071 PFIL3 
AF.MEM 1072 
1073 
1074 
1075 
1076 
1077 
MEM1 1078 
1079 


ADC MEM1 
PHA 

LDA MEM1 
BNE >1 

JSR SOUNDO 
INC MEMI 
JSR AF.MEM 
PLA 

RTS 


JSR SNDSAVRG 
LDX #$B0 

TXA 

EOR 4580 

TAY 

DEY 

BNE <2 

BIT SPKR 

TXA 

ADC #$80 

TAY 

DEY 

BNE <3 

BIT SPKR 

DEX 

BNE <1 

JSR SNDRSTRG 
RTS 


JSR SNDSAVRG 
LDA SFLAG 
BEQ >2 

LDA #1 

STA SFLAG 
LDX #0 

LDA SPKR,X 
INX 

CPX #130 
BNE <1 

INC SFLAG 
LDA SFLAG 
CMP #5 

BNE <3 

JSR SNDRSTRG 
RTS 


BYT 1 
BYT 0 
BYT 0 
BYT 0 


STA SNDSAVA 
STX SNDSAVX 
STY SNDSAVY 
RTS 


LDA SNDSAVA 
LDX SNDSAVX 
LDY SNDSAVY 
RTS 


STA PTSAVA 
STY PTSAVY 
LDA $400 
STA PTSAV400 


JSR WNDSAV 
JSR WNDINIT 


LDA #1 

JSR OUTPORT 
LDY #0 

LDA (BUF),Y 
NOP 

NOP 

NOP 

STY PTSAVY2 
ORA 4580 
CMP #$FF 
BEQ >3 

CMP #$80 
BLT >2 

CMP #$A0 
BGE >2 








1080 3 LDA #$AE 1124 LDA WNDBTM 1172 COUTLF PHA 


1081 "2 JSR COUTLF 1125 STA WBTMSAV 1173 LDA COMPTLF 
1082 LDY PTSAVY2 1126 LDA CH 1174 CMP #160 
1083 INY 1127 STA WCHSAV 1175 BNE >1 
1084 CPY #0 1128 LDA CV 1176 LDA #0 
1085 BNE <1 1129 STA WCVSAV 1177 STA COMPTLF 
1086 LDA #$8D 1130 RTS 1178 STA CH 
1087 JSR COUTLF 1131 : 1179 LDA #$8A 
1088 LDA #0 1132 WNDRST LDA WLFSAV 1180 JSR COUT 
1089 JSR OUTPORT 1133 STA WNDLFT 1181 “1 INC COMETLF 
1090 ; 1134 LDA WTOPSAV 1182 PLA 
1091 JSR WNDRST 1135 STA WNDTOP 1183 JSR COUT 
1092 1136 LDA WWDTHSAV 1184 RTS 
1093 LDA PTSAV400 1137 STA WNDWDTH 1187 ; 
1094 LDA PTSAVA 1138 LDA WBTMSAV 1188 COMPTLF BYT 0 
1095 LDY PTSAVY 1139 STA WNDBTM 1191 ; 
1096 RTS 1140 LDA WCHSAV 1192 STROUTLF STA STRADR 
1099 ; 1141 STA CH 1193 STY STRADR+$S1 
1100 PTSAVA BYT 0 1142 LDA WCVSAV 1194 LDY #0 
1101 PTSAVY  BYT 0 1143 STA CV 1195 “1 : LDA (STRADR),Y 
1102 PTSAV400 BYT 0 1144 JSR VTAB 1196 BEQ >2 
1103 PTSAVY2 BYT 0 1145 RTS 1197 JSR COUTLF 
1106 ; 1146 ; 1198 INY 
1107 WNDINIT LDA #0 1147 WLFSAV  BYT 0 1199 CLC 
1108 STA WNDLFT 1148 WTOPSAV BYT 0 1200 BCC <1 
1109 STA WNDTOP 1149 WWDTHSAV BYT 0 1201 "2 RTS 
1110 STA CH 1150 WBTMSAY BYT 0 1204 ; 
1111 STA CV 1151 WCHSAV  BYT 0 1205 STRADR  EPZ $EB 
1112 JSR VTAB 1152 WCVSAV BYT 0 1206 LFFLAG BYT 1 
1113 LDA #1 1157 ; 1209 
1114 STA WNDWDTH 1158 INITVECT LDA #INTRO 1210 LFLF LDA LFFLAG 
1115 STA WNDBTM 1159 STA 53F2 1211 BEQ >1 
1116 RTS 1160 LDA /INTRO 1212 LDA #$8A 
1117 ; 1161 STA $3F3 1213 JSR COUT 
1118 WNDSAV  LDA WNDLFT 1163 ; 1214 LDA #0 
1119 STA WLFSAV 1164 LDA $53F3 1215 STA CH 
1120 LDA WNDTOP 1165 EOR #$A5 1216 STA COMPTLF 
1121 STA WTOPSAV 1166 STA 53F4 1217 “1 RTS 
1122 LDA WNDWDTH 1167 RTS 1220 
1123 STA WNDTHSAV 1171 ; 1221 END 
: 0928- D5 D4 C1 CE D4 A0 C1 A0 0A70- OC AD EB OC 8D 2F 0C A9 
Récapitulation 0930- A0 C3 C8 C1 D1 D5 C5 A0 0A78- 0E 8D EC 0C EE ED OC EE 
DECRYPTEUR 0938- A0 C6 CF C9 D3 A0 A0 D5 0A80- ED 0C 20 B7 OC AD EB 0C 
0940- CE 8D C6 C9 CC D4 D2 CS 0A88- 8D 30 0C A9 OA 85 24 A9 
0800- 20 39 12 20 58 FC 20 68 0948+ AC A0 CD C1 D4 CS D2 C9 0A90- 16 85 25 20 22 FC 20 68 
0808- OC 8D 8D 8D DO D2 CF C7 0950- C1 CC C3 D3 C5 A0 DO C1 0A98- 0C 45 53 50 41 43 45 60 
0810- D2 C1 CD CD C5 A0 C4 C5 0958- D2 A0 D4 D2 CF C9 D3 A0 0AAO= 50 4F 55 52 60 43 4F 4E 
0818- A0 C4 C5 C3 D2 D9 DO D4 0960- CF C3 D4 C5 D4 D3 AE 8D 0AA8- 54 49 4E 55 45 52 00 AD 
0820- C1 C7 C5 8D AD AD AD AD 0968- 8D D6 CF D5 D3 A0 DO CF 0AB0= 00 CO 10 FB 2C 10 CO 20 
0828- AD AD AD AD AD AD AD AD 0970- D5 D6 C5 DA A0 C1 C9 CE 0AB8- 58 FC 20 68 OC AO A0 A0 
0830- AD AD AD AD AD AD AD AD 0978- D3 C9 A0 D6 C9 D3 D5 C1 0ACO- A0 A0 A0 A0 A0 AA AA AA 
0838- AD AD AD 8D C4 C5 A0 D3 0980- CC C9 D3 C5 D2 A0 DS5 CE OAC8- AA AA AA AA AA AA AA AA 
0840- C5 C3 D4 C5 D5 D2 D3 A0 0988- A0 A0 D3 C5 C3 D4 AD 8D 0ADO- AA AA AA AA AA AA AA 8D 
0848- A0 C3 CF C4 C5 D3 A0 DO 0990- C5 D5 D2 A0 C1 D6 C5 C3 0AD8- A0 AO AO A0 A0 A0 A0 A0 
0850- C1 D2 A0 8D D5 D4 C9 CC 0998- A0 D5 CE A0 C6 C9 CC D4 0AEO- AA A0 C4 C5 C3 D2 D9 DO 
0858- C9 D3 C1 D4 C9 CF CE A0 09A0- D2 C5 A0 C3 CC C1 C9 D2 0AE8- D4 C5 D5 D2 A0 B1 AE BO 
0860- C4 A7 D5 CE A0 C6 C9 CC 09A8- AC A0 C6 CF CE C3 C5 AC 0AFO- A0 AA 8D A0 A0 AO A0 A0 
0868- D4 D2 C5 8D AD AD AD AD 09B0- A0 A0 CF DO C1 AD 8D D1 0AF8- A0 A0 A0 AA AA AA AA AA 
0870- AD AD AD AD AD AD AD AD 09B8- D5 C5 A0 CF D5 A0 CF D2 0B00- AA AA AA AA AA AA AA AA 
0878- AD AD AD AD AD AD AD AD 09C0- C1 CE C7 C5 BB A0 D6 CF 0B08- AA AA AA AA AA 00 20 14 
0880- AD AD AD 8D 8D 8D A0 A0 09C8- D4 D2 C5 A0 D6 C9 D3 C9 0B10- 0B 4C 44 0B A9 04 85 25 
0888- A0 AO AO DO C1 D2 A0 DO 09D0- CF CE A0 DO C5 D5 D4 A0 0B18- 20 22 FC A9 00 85 24 20 
0890- C1 D5 CC A0 C6 D2 C1 CE 09D8- A0 C5 D4 D2 C5 8D C6 CC 0B20- 68 OC DO C9 D3 D4 C5 A0 
0898- C3 C5 D3 C3 C8 C9 8D A0 09E0- CF D5 C5 AC A0 DO D2 C5 0B28- 00 AD 2F 0C 20 DA FD 20 
08A0- A0 AO A0 A0 C3 CF DO D9 09E8- C3 C9 D3 C5 AC A0 C4 C5 0B30- 68 0C A0 A0 D3 C5 C3 D4 
08A8- D2 C9 C7 C8 D4 A0 B1l B9 09F0- A0 C8 C1 D5 D4 AC A0 C4 0B38- C5 D5 D2 A0 00 AD 30 OC 
08B0- B8 B5 AE 16 05 12 13 09 09F8- C5 A0 DO D2 C5 D3 A0 AC 0B40- 20 DA FD 60 A9 00 8D 14 
08B8- 0F 0E 20 31 2E 31 00 AD 0A00- A0 C4 C5 AO 8D C2 C9 C1 0B48- 0C 85 06 A9 60 85 07 20 
08C0- 00 CO 10 FB 2C 10 CO 20 0A08- C9 D3 AC A0 CF D5 A0 C5 0B50- 19 0C 20 BE 0B A9 21 85 
08C8- 58 FC 20 68 OC C3 C5 A0 0A10- D8 D4 D2 C1 CC DS C3 C9 0B58- 24 A9 02 85 25 20 22 FC 
08D0- DO D2 CF C7 D2 C1 CD CD 0A18- C4 C5 AE AE AE 8D 8D 8D 0B60- 20 68 OC C6 C9 CC D4 D2 
08D8- C5 A0 D6 CF D5 D3 A0 DO 0A20- C1 CC CF D2 D3 AC À0 D1 0B68- C5 00 A9 21 85 24 A9 03 
08E0- C5 D2 CD C5 D4 A0 C4 A7 0A28- D5 C5 CC A0 D3 C5 C3 D4 0B70- 85 25 20 22 FC 20 68 OC 
08E8- C1 C6 C6 C9 C3 C8 C5 D2 0A30- C5 D5 D2 A0 C4 C5 D3 C9 0B78- AD AD AD AD AD AD 00 A9 
08F0- A0 CC C5 8D C3 CF CE D4 0A38- D2 C5 DA AD D6 CF D5 D3 0B80- EA 8D D1 0B 8D D2 0B 8D 
08F8- C5 CE D5 A0 C4 A7 D5 CE 0A40- A0 CC C9 D2 C5 BF 8D 8D 0B88- D3 0B 20 40 OC A9 21 85 
0900- A0 D3 C5 C3 D4 C5 D5 D2 0A48- 8D 20 20 10 09 13 14 05 0B90- 24 A9 14 85 25 20 22 FC 
0908- A0 C4 C5 AO CD D5 CC D4 0A50- 20 20 20 20 20 8D 8D 20 0B98- 20 68 OC CD AE B1 AO CD 
0910- C9 DO CC C5 D3 A0 A0 C6 0A58- 20 13 05 03 14 05 15 12 OBAO- AE B2 00 20 01 10 A9 00 
0918- C1 AD 8D C3 CF CE D3 AC 0A60- 20 20 20 00 A9 0E 8D EC OBA8- 8D C3 0E 8D C2 0E A9 14 
0920- AO C5 CE A0 C3 CF CD CD 0A68- OC A9 OF 8D ED OC 20 B7 O0BBO- 8D C1 0E A9 12 8D C4 0E 
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CLM.&B8BDO. Apple et le logo Apple sont des marques déposées d'Apple Computer, Inc. Mac Tell 2 (Copyright 1985 - Hello Informatique) matériel agréé par les PTT. 





Nous avons les moy 


Autant l'avouer tout de suite, 
nous sommes dans l'ère de l'infor- 
mation. Et avant de pouvoir analyser 
les données qui proviennent des 
quatre coins du monde, il faut déjà 
pouvoir les attraper. 

Vous pouvez toujours chauffer la 
plante des pieds de vos employés, 
sans un Macintosh, un bon modem 
et un programme de communica- 
tion, impossible de leur faire dire 
quoi que ce soit à propos de votre 
correspondant de Chicago, ni sur la 





Modem 300 baudk. 


vente de maillots de bain pendant 
l'été 1985 au pôle Nord. Ne vous tor- 
turez pas davantage, nous sommes 
enfin disposés à tout vous révéler 
à propos de nos moyens de com- 
munication. 

Les trois modem Apple sont : 
-Le modem 300 bauds, d'usage très 
simple ; peu cher, il permet à n'im- 
porte quel étudiant de chercher par- 
tout des renseignements pour son 
interrogation du lendemain. - Le 
modem universel 1200/75 Vidéotex 






et 300 bauds qui permet decommuni- 
quer en vidéotext sur des applica- 
tions pseudo-graphiques (en mode 
1200/75) et en texte de façon très 
ordinaire (en mode 300). Universel, 
il est idéal pour faire parler les avo- 
cats, les médecins ou les dentistes. 

- Le modem 1200 bauds full du- 
plex : il fait parler les gros systèmes 
et ce, à grande vitesse. Lors des 
échanges de fichiers contenant une 
quantité importante d'informations, 
ce modem est une merveille, compte 
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ns de vous faire parler 


Modem Full duplex 1200 bands. 


tenu de l'existence de “protocoles”, 
qui sur des liaisons spécialisées 
1200 baudks, se chargent de la vérii- 
cation de la validité des informations 
transmises, évitant ainsi la plupart 
des erreurs de transmission. C'est 
amusant de voir comment une si 
Le machine peut faire parler si 
acilement de gigantesques systèmes 
de données. 

Dire que tant d'hommes ont 
cherché des moyens très compliqués 
pour obtenir des renseignements, 
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Modem Universel 1 200/75 Vidéotex 300 baudk. 


alors qu'un programme de commu- 
nication comme Mac Tell 2 de Hello 
Informatique ou Mac Terminal peut 
faire avouer à n'importe quel serveur 
d'information, n'importe quoi. 

Mac Terminal peut interroger un 
réseau télématique comme Calvados, 
messagerie électronique française 
qui peut vous faire rencontrer beau- 
coup plus de monde que sur la place 
de l'Opéra aux heures de pointe. 
Vous pouvez échanger des informa- 
tions, connaître les cours de la 








Bourse, consulter les 
dépêches de l'AFP Mac 
Tell 2 permet d'émuler 
un Minitel avec tous 
les avantages d'un 
Macintosh (mémori- 
sation, impression). 
Maintenant, déci- 
dez-vous, décidez en 
étant au courant de 
tout, ou décidez en 
étant au courant de 


rien. Apple 





Librairie : 
Un ‘motif de satisfaction 


OUS VOUS proposions, 

dans le numéro 18 de 

“Pom's”, deux routi- 

nes qui vous permet- 
taient de récupérer les icônes et 
les curseurs du système. Cette 
fois, notre attention va se porter 
sur les 38 “motifs” (pattern) 
prédéfinis, utilisés par le tableau 
de bord pour déterminer 
l'apparence du “bureau”. La 
définition de motifs dans un 
programme Basic étant longue et 
fastidieuse, une telle routine nous 
semblait indispensable. Ceci va 
aussi nous permettre de décrire, 
dans ses grandes lignes, le 
fonctionnement de l'instruction 
“LIBRARY” qui n'est évoquée, 
dans le manuel d'utilisation du 
Basic Microsoft, que dans la liste 
des mots-clé. Vous trouverez 
donc, jointes à cet article, deux 
versions de la routine : 


° une version que nous 
appelerons “tableau”, puis- 
qu'elle se loge dans un tableau 
de variables entières (c'est la 
méthode utilisée dans les 
précédents numéros de 
“Pom's”); 

+ une version “LIBRARY” qui, 
comme nous le verrons un peu 
plus loin, requiert la présence 
d'un fichier ressource. 


Version “Tableau” 


La routine doit être implantée 
dans un tableau de variables 
entières de vingt éléments, et son 
adresse de base correspond au 
premier de ces éléments. Pour 
obtenir cette adresse (pour le 
CALL) il faut donc utiliser : 


Adr!=VARPTR(Tableau%(0)) 
avec OPTION BASE 0 (valeur 
par défaut), ou : 


Adr!=VARPTR(Tableau%(1)) 
avec OPTION BASE 1. 





Marianne Sutz [2] 
LS 


2 


I1 suffit ensuite d'appeler la 
routine en lui passant, comme 
argument, le numéro de référence 
du motif désiré. Cette valeur doit 
être comprise entre O et 37 inclus 
(voir le tableau ci-joint). Un 
nombre inférieur à 0 ou supérieur 
à 37 ne provoque pas de 
“plantage”, mais on obtient alors 
n'importe quoi comme motif, Le 
numéro peut être passé sous la 
forme d'une expression ou d'une 
variable qui doit absolument être 
entière (2 octets soit 16 bits). 
Ainsi : 

Adr! NX*2+1 

et 

Adr! N1% 

constituent des appels valides de 
la routine. 


Programme de 
démonstration 


DEFINT A-Z-DIM R(3),C(19) 
DATA &h4E56,0,&h594F, &h2F3C,&h5041 
DATA &h5423,8h3F3C,0,8&hA9A0,&h225F 
DATA &h2251,8h302E,8,&hC0FC,8 
DATA &h4871,&h802,&hA89D,&h4E5E 
DATA &h4E75 

FOR 1=0 TO 19:READ C(i):NEXT 

FOR 1-23 TO 479 STEP 24 
LINE(1,0)-(1,300):NEXT 

FOR 1-23 TO 287 STEP 24 
LINE(0,))-(500,):NEXT 

10 RANDOMIZE TIMER 
R(0)=24"INT(RND"*13) 
R(1)=24"INT(RND"21) 
R(2)=R(0)+23:R(3)=R(1)+23 
N=INT(RND"38):Al=VARPTR(C(0)):A! N 
PAINTRECT VARPTR(R(0)):GOTO 10 


Version 
“LIBRARY” 


L'instruction “LIBRARY” permet 
l'utilisation directe de routines 
créées avec le système de 
développement 68000, et autorise 
des liens beaucoup plus étroits 
entre ces routines et le Basic 
Microsoft (version 2.00, (d) ou 
(b)). Sans trop entrer dans les 
détails (on manque un peu de 
place !), il convient de citer la 
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posibilité de générer les messages 
d'erreur du Basic depuis la 
routine en assembleur, de 
contrôler le type des arguments 
passés, d'utiliser comme 
arguments des variables qui n'ont 
pas été préalablement définies, 
etc. Nous aurons bien sûr 
l'occasion de reparler de cela 
dans les prochains numéros de 
“Pom's” mais, en attendant, nous 
vous conseillons de demander à 
la société Microsoft un document 
polycopié de 21 pages intitulé 
“Microsoft Basic for the 
Macintosh. Building Machine 
Language Libraries”, où l'on 
trouve toutes les adresses liées au 
système, ainsi que des exemples 
d'application. 


Voyons maintenant quelle est la 
méthode pour employer la 
version “LIBRARY” de notre 
routine. 


Elle doit se trouver dans un 
fichier ressource, qui doit 
lui-même être situé, de préfé- 
rence, sur la même disquette que 
le Basic Microsoft. 

Si vous disposez de la disquette 
“Mac Pom's 21”, pas de 
problème : le fichier s'y trouve 
(sous le nom “PatLib.Rscr”), de 
même que les fichiers nécessaires 
à sa création (PatLib.Job, 
LIBinit.Asm, PatLib.Asm, Pat- 
Lib.Link et PatLib.R). 

Si vous ne disposez pas de la 
disquette mais que vous êtes en 
possession du système de 
développement 68000, il vous 


Source de la routine de chargement des ‘motifs 


Retourne le "“Handle" d'une ressource SN 
Initialise le "motif" à utiliser. ) 
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faudra saisir les cinq fichiers 
précités, puis utiliser le fichier 
PatLib.Job (avec “Executive”), 
qui se chargera de l'enchaînement 
des opérations. 

Dans le cas où la disquette 
“Pom's” et le système de 
développement 68000 vous 
feraient défaut, désolé. il n'y a 
pas de solution. Ceci constitue 
d'ailleurs le principal inconvé- 
nient des routines “LIBRARY” : 
leur création est impossible sans 
le système de développement, et 
il est alors nécessaire de se 
reporter à la bonne vieille 
méthode du tableau de variables. 


Liaison avec le 
programme Basic 


Avant le premier appel de la 
routine, nous devons la lier au 
Basic avec l'instruction 
“LIBRARY”, suivie du nom de la 
ressource (le fichier contenant la 
routine en assembleur) ou d'une 
variable alphanumérique dans 
laquelle le nom aura été 
préalablement placé. Dans le 
programme de démonstration : 
LIBRARY "PatLib.Rscr" 

se charge de cette opération. 

Si la routine ne se trouve pas sur 
la même disquette que le Basic 
Microsoft, il est indispensable 
que le nom de la ressource soit 
précédé du nom de volume 
('Pom's 21:PatLib.Rscr", par 
exemple) sinon, on se retrouve 
avec le message “FILE NOT 
FOUND”. i le nom 


“PatLib.Rscr” ne vous convient 
pas, il est possible de renommer 
le fichier. 


Appel de la routine 


On procède de la même façon 
qu'avec la version “tableau”, à 
une différence près : il n'est pas 
nécessaire de définir la variable 
du CALL avec VARPTR et le 
nom de la routine est imposé par 
son auteur (nous avons baptisée 
celle-ci “PatLib”). Notons aussi 
un petit “plus” par rapport à la 
version “tableau” : la routine 
génère le message d'erreur 
OVERFLOW du Basic si 
l'argument passé est supérieur à 
37 ou inférieur à O (bien que, 
dans ce cas, il s'agirait plutôt de 
“underflow” mais, ce message 
n'étant pas disponible.….). 


Fermeture de la routine 


En fait, la fermeture n'est pas 
indispensable, puisque les 
instructions NEW, SYSTEM et 
RUN détachent la routine du 
Basic. Si, pour une raison 
quelconque, on doit fermer la 
routine, on peut utiliser l'instruc- 
tion LIBRARY CLOSE. 


Avant de conclure, il convient de 
souligner le caractère le plus 
intéressant du “système 
LIBRARY” : il permet “l'over- 
lay” dynamique. En effet, si nous 
passons la valeur O0 dans le 


5 
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; 4 octets au sommet de la pile pour "Handle". 
Empile le type de ressource à rechercher. 
; Empile l'identificateur de la ressource (0). 
; Retourne l'adresse du pointeur ("Handle"}). 
Le "Handle" est placé dans le registre Al. 
; Le pointeur est placé dans le registre Al. 
; Le numéro passé depuis le Basic dans DO. 
#8, DO ;: Multiplie ce numéro * 8 (1 motif= 8 octets). 
; Empile l'adresse du motif sélectionné. 


; Change le "motif" du "crayon". 


0000 .Trap _GetResource $A9AO ; 
0000 -Trap _PenPat $A89D ; 
0000 

0000 4E56 0000 LINK A6, #0 

0004  594F SUBQ #4, SP ; 
0006 2F3C 5041 5423 MOVE. L #'PAT#',-(SP) ; 
000C 3F3C 0000 MOVE #0, -(SP) ; 
0010  A9A0 __GetResource ; 
0012 225F MOVE. L (SP) +,A1 ; 
0014 2251 MOVEA.L (A1) ,A1 

0016  302E 0008 MOVE 8(A6),D0 

O01A COFC 0008 MULU 

O01E 4871 08 02 PEA 2(A1,D0.L) 

0022  A89D _PenPat 

0024 4E5E UNLK A6 

0026  4E75 RTS 
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registre de données DO avant le : 
retour au Basic, la routine est MacPaintAstuces 


“purgeable”. De ce fait, si la place 







en mémoire devient insuffisante, + En mode Crayon et avec le bouton de la souris enfoncé, le déplacement 
la routine sera automatiquement s'obtient avec la touche Option, et le pointage de la loupe à l'endroit de 
la flèche avec la touche Commande, 






évacuée. Par la suite, un appel de 
la routine provoquera un + Tous les outils, même le lasso, bénéficient de la direction forcée grâce 











rechargement automatique. Ceci la touche Majuscules. 
s'avère particulièrement utile pour  « Avec Majuscules, Commande et Option, on peut déformer un objet en 
les routines volumineuses et, plus éservant sa structure. Ainsi, le cercle de gauche est-il sélectionné par 
généralement, pour les posses- rectangle: en appuyant sur les trois touches et en tirant vers la droite, 
seurs de Mac 128Ko. on obtient le résultat de la figure 2. 
\ ! 

l 

1 
Programme de …. 
démonstration Figure "ue, 





Vorson SAR a aussi sélectionné la grille, on préserve non seulement la 
LIBRARY ‘"PatLib.Rscr” structure, mais aussi tout décor qui y serait présent (fig. "+ 


DEFINT A-Z:DIM R(3) 
FOR 1-23 TO 479 STEP 24 
LINE(1,0)-(1,300):NEXT 
FOR 1-23 TO 287 STEP 24 
LINE(0,1)-(500,):NEXT 












10 RANDOMIZE TIMER : 
R(0)=-24"INT(RND*13) Figure 3 

R(1)-24*INT(RND"21) 

R(2)=R(0)+23-R(3)-R(1)+23 + Quand on fait des copies multiples, avec les touches Commande et 
N=INT(RND"38):PatLib! N Option, leur espacement est défini par l'épaisseur de trait sélectionnée 
PAINTRECT VARPTR(R(0)):GOTO 10 bn n bas et à gauche de l'écran. - 






PatLib.Job PatLib.R 


(Executive) 






PatLib.Rscr 






1] Asm LiBinit.Asm Exec Edit BLIB 
PatLib.Asm Asm PatLib.Asm Exec Edit TYPE CODE = GNRL 
Link PatLib.Link Exec Edit LIBinit,1 
hu ue ss Fc sns an Rmaker PatLib.R Exec Edit -R 
rep SF enre PatLib CODE 1 























GetNextLibArq EQU S2A e _» = 
BasicError EQU 542 LiBinit.Asm TYPE cœe GNRL [] 
.R 
SUBQ #4,5SP LIBVER Result EQU 6 ; 
MOVE.L #'PAT#',-(SP) _ PatLib CODE 2 
MOVE #0,-(SP) CLR LIBVER _Resul t (A0) 
GetResource MOVEQ  #0,D0 ©) 
MOVE. L (SP) +,A1 RTS 
MOVEA.L (A1) ,A1 
JSR GetNextLibArg (A5) $ 
MOVE (A2),D0 MacPaintAstuces Suite. 
BMI.S Erreur 
ne be *_ Pour entrer du texte continu en modifiant la police, la taille ou le style 
MULU 48,D0 {voir ci-dessous), faire “Enter” (pas Return") avant chaque 
PEA 2(A1,D0.L) modification. 
PenPat $ 
MOVEO #0,D0 Changement de taille, de 
RTS F 
Erreur MOVEQ #6,D2 style (gras, souligné) 
on dut ou de police avec Enter. 





* Quand on maintient la touche Commande enfoncée, tout décor appliqué 
avec la brosse se superpose en transparent aux décors antérieurs. Si ke 
PatLib.Link nouveau décor est plus clair, transiter par une inversion d'image. 
à + Lorsqu'on a choisi l'option "Editer un motif” on peut éditer n'importe 
/ OUTPUT PatLib quel décor prélévé par simple clic dans la fenêtre MacPaint. 


LIBinit.Rel 
NS + Pour quitter MacPaint et éjecter d'un coup la disquette, maintenir &s 
De ne touche Commande enfoncée pendant le choix de l'option Quitter. 























Une corbeille dans la € 


ous avons tous vu 

apparaître, sur l'écran 

du Macintosh, les 

messages “Le disque 
est saturé. Recommencez.”, “Le 
disque est saturé. Effacez des 
documents ou changez de 
disque.” , ou encore “Place 
disponible insuffisante pour 
enregistrer. Utilisez un autre 
disque.” . Ce ne sont bien sûr que 
quelques exemples de ce qui peut 
se présenter lorsque la disquette 
de démarrage est saturée, ou 
proche de la saturation. 


La seule solution consiste alors à 
retourner au “Finder” pour 
effectuer les manipulations 
nécessaire, ce qui se traduit, dans 
la plupart des cas, par la 
destruction d'un ou plusieurs 
fichiers devenus inutiles (bout 
d'essai, ancienne version du 
fichier traité, etc..). Tout cela fait 
perdre du temps, et il nous fallait 
nous mettre à la recherche d'une 
solution. 


Voici donc un petit accessoire de 
bureau propre à pallier le manque 
de “corbeille” lorsqu'on utilise un 
programme. L'accessoire ici 
proposé est donc une “corbeille 
de bureau”, qui a le même rôle 
que son homonyme du “Finder”, 
mais, et nous le verrons un peu 
plus loin, avec des caractéris- 
tiques un peu plus “expéditives” 
(dans un premier temps, nous 
avions baptisé la chose “Destruc- 
teur”, mais nous avons préféré 
remplacer ce nom quelque peu 
terrorisant par “e-> Corbeille”). 


Mode d'emploi 


L'accessoire en question se 
trouve dans le fichier “système” 
de la disquette Pom's Mac 21; 
vous pouvez donc utiliser 
directement ce fichier ou, si vous 


Jean-Luc Bazanegue 


File Edit Style Font Layout RArrange Fill Lines Pen 


e-> Corbeille.R… 
e-> Corbeille.fA.… 
e-> Corbeille.CE 

e-> Corbeille.L.. 

e-> Corbeille.A 


Pour trouver Pom's : 
e les kiosques ou le 39.51:24.43 





.-> Corbeille. Asm : 
el 


: Routines utilisées par l'accessoire. 
LS 





.Trap _Pack3 SA9EA ; Appel du "Standard file package". TS 
.Trap _Delete $A009 : Destruction d'un fichier. 

.Trap _GetVolïInfo $A007 : Lecture des informations sur les volumes. 
.Trap _OffLine $A035 ;: Mise “hors ligne" d'un volume. 

.Trap _MountVol $A00F : Mise "en ligne” d'un volume. 

.Trap _FlashMenuBar $A94C +: Inversion (vidéo) d'un menu. 

.Trap _SysBeep $A9C8 : Provoque un "Bip" ou une inversion si volume-0. 
.Trap _CopyBits $A8EC +: À peu près équivalent au "PUT" du Basic. 
.Trap _SetPort $A873 ; Indique le port graphique courant. 

.Trap _Disposindow $A914 ; Libère la mémoire utilisée par une fenêtre. 
.Trap _NewWindow $A913 ; Pour créer une nouvelle fenêtre. 

.Trap _DrawString $SA884 : Affiche une chaïne de caractères. 

.Trap _MoveTo $A893 : Déplace le "crayon" à la position indiqué. 
-Trap _LineTo $A891 ; Trace une ligne depuis la position du crayon. 
.Trap _PenPat $A89D ; Détermine le "motif" du “crayon”. 

.Trap _TextFont $A887 : Police de caractères à utiliser. 

.Trap _BeginUpdate $A922 : Début de mise à jour d'une fenêtre. 

.Trap _EndUpdate $A923 ; Fin de mise à jour d'une fenêtre. 


: Décalages par rapport à la base du tampon "TamponiO" de 80 octets, utilisé par les routines 
: _Delete, GetVollnfo, _OffLine et _MountVol pour le stockage des paramètres. 


ioCompletion EQU $C ;: Pointeur pour entrées/sorties asynchrones. 
ioResult EQU $10 ; 2 octets pour un éventuel code d'erreur. 
10F{leName EQU 512 : Pointeur sur le nom de fichier. 

1oVRefNum EQU $16 : 2 octets pour le numéro de référence du volume. 
1oFileType EQU $1A ; 1 octet pour le type de fichier. 

10oV@E1S1ze EQU $40 ;: Taille du tampon (64 octets). 

1ovwPtr EQU $12 ; Pointeur sur le nom de volume. 

{ovolIndex EQU $51C ; 2 octets pour le numéro d'index du volume. 


: Décalages par rapport à la base du tampon "TamponRep" de 72 octets, utilisé par la routine 
‘+ _Pack3 pour le retour des informations. 


rGood EQU 0 ;: Drapeau: 0 si "Annuler", 1 si "Ouvrir". 
rVolume EQU 6 : Numéro de référence du volume. 

rVersion EQU : Numéro de version du fichier. 

rName EQU 10 : Nom du fichier (Maximum 63 octets). Le premier 


+ octet indique la longueur du nom. 
; Equivalences diverses. 


sfGetFile EQU 2 4: Sélecteur de routine (pour _Pack3). 
FinderName EQU $2E0 +: Adresse de stockage du nom du "Finder". 
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$910 +: Adresse de stockage du nom de l'application en 





“+ Cours. 


désirez placer “e-> Corbeille” MEL au 

dans un fichier système résidant aCctiWindow EQU ; Pointeur sur la fenêtre de l'accessoire. 
sur une de vos disquettes il est dCtlRefNum EQU ; Numéro de référence de l'accessoire. 

$ EQU sec + Décalage par rapport à la base de 
EQU 
EQU 


Ë 






ra 
œ 
s 






: : : s HindowKind 
bien sûr possible de l'installer Ke nel 
avec l'utilitaire “Font/DA dBoxProc 1 : Numéro de référence des fenêtres type "Dialog". 



















Mover”’ gray SEFFFFFFES8 : Adresse relative (registre A5) du "gris moyen". 
; En-tête du driver (voir "Lucy in the Sky with Diamonds", numéro 19 de Pom's). 
. ‘ N Base res $400,0,0,0 J | _) 
Cet accessoire est d'un emploi DC Ouverture-Base,Ouverture-Base,Ouverture-Base (SE — 
très simple; un mode d'emploi au :Æ RER LS 
sens propre du terme serait donc S 
Ouverture . MOVEM.L Al-A4,-(SP) : Sauvegarde les registres d'adresse Al, A2, A3 


superflu. En revanche, quelques 
mises en garde s'imposent : MOVE.L  Al,M 





: et A4 au sommet de la piie. 
: Copie du registre A1 dans le registre Ad. 






;: Le "Finder" autorise la destruction des fichiers par l'intermédiaire de la corbeille, ce qui 






. en Corbeille” ne peut : rend l'accessoire inutile lorsque le “Finder” tourne. De plus, le "Finder" ne reconnait pas 
An / cl : la destruction d'un fichier si elle n'est pas effectuée par la voie normale, ce qui peut 

pas être appelé depuis le : provoquer des problèmes (appel d'un fichier reconnu par le “Finder”, bien que venant d'être 

“Finder”; ce serait inutile ;: détruit par l'accessoire). Il est donc prudent de s'assurer que l'application en cours n'est 






. . : pas le "Finder". Si tel est le cas, une tentative d'ouverture de l'accessoire se traduit par 
puisque nous disposons de la ; un "Bip" ou, si le volume est à zéro, par une inversion vidéo de la barre des menus. Notons 
corbeille Ct, de plus, | : enfin que le "Finder" reconnait la destruction d'un (ou de plusieurs) fichier lorsque l'on 


dangereux étant donné que le ;: revient de l'application depuis laquelle l'accessoire a été utilisé. 
, 






“Finder” n'est pas apte à LEA FinderName, A0 ; L'adresse où l'on trouve le nom du "Finder" est 
A . ’ ; placée dans A0. 
reconnaitre la destruction d'un LEA CurApName, Al : L'adresse où l'on trouve le nom de 





;: l'application en cours est placée dans Al. 
MOVE.B (A0) +, D1 : Le premier octet contient le nombre de 
; Caractères dans le nom du "Finder". 
: Il est comparé au nombre de caractères dans le 
: nom de l'application en cours. 
BNE.S Le 4 : Si les deux noms ont des longueurs différentes, 
: l'application en cours n'est pas le "Finder", 
: et on passe à la suite des opérations. 
: Si la longueur du nom de l'application en cours est égale à la longueur du nom du "Finder", 


fichier autrement que par 
l'intermédiaire de la corbeille. 
Une tentative d'ouverture de CÆ.B  (Al)+,D1 
l'accessoire depuis le “Finder” 
se soldera par un “Bip” ou, si 
le volume sonore est à O, par 










une inversion de la barre des : on exécute une boucle qui compare les caractères des deux chaînes. Au stade actuel, l'octet 
menus. ; de poids faible de D1 contient le nombre de caractères, A0 pointe sur le premier caractère 
: du nom du “Finder”, Al pointe sur le premier caractère du nom de l'application en cours. 
66 ï 3 < 
+ “> Corbeille peut dé- EXT 1 : Le bit 7 de D1 est copié dans les bits 8 à 15. 





+ Cela a pour effet de mettre à 0 l'octet de 


truire n'importe quel fi- 

. A ". : poids fort du mot de poids faible de D1, qui 
chier, meme s il est ver- + sera utilisé comme index de boucle. 
rouillé, et quel que soit son SUB  #1,D1 : DI = nombre de caractères - 1. 







type. L'accessoire refuse BoucleVerif CMPM.B  (A0)+, (Al)+ On compare deux caractères. 
seulement de détruire les 
fichiers ouverts (le fichier 
système, l'application en cours 
ainsi que les éventuels fichiers 
qui lui sont liés et le fichier en 


D1,BoucleVerif 


IS TS SES 


S'ils sont différents, on sort de la boucle. 
Sinon, on va comparer les deux caractères 
suivants, sauf si tous les caractères ont été 


; comparés, auquel cas on sort aussi de la 


boucle. 


; Si tous les caractères ont été comparés, on 
: trouve -1 dans Dl, ce qui signifie que les deux 
;: chaînes sont identiques. 





+ Sinon, vers suite des opérations. 


cours de traitement). Si l'on BNE.S @ 
essaie de détruire un fichier Le js 





: L'application en cours est le "Finder". On émet 








ouvert, la barre des menus _SysBeep + un "Bip" de 7/60 seconde et on retourne au 

clignote rapidement pendant Pace Rs 

une petite seconde pour + Inversion vidéo de la barre des menus. Elle restera en inverse jusqu'à ce que l'utilisateur 
: s : chotsisse un fichier ou "clique" sur "Annuler" (ou "Cancel"). La routine _FlashMenuBar est 

signaler le problème, et nous + utilisée. On empile soit le numéro du menu à inverser (1 pour le menu "Pomme", par exemple). 

revenons à l'application en + soit O0 pour inverser toute la barre, comme c'est le cas ici. 

Cours. K CLR - (SP) : Deux octets à 0 au sommet de la pile. 






_FlashMenuBar + Appel de la routine. 







: Création d'une fenêtre du type "bolte à dialogue" 













Les solutions retenues sont CLR.L — (SP) + 4 octets pour retour du pointeur. 

‘ $ CLR.L -(S) : Stockage de la fenêtre dans le "heap". 
certainement discutables, en PEA RectangleF + Empile l'adresse des coordonnées de la == 
particulier la possibilité de CLR.L (SP) ; Fenêtre sans titre. 
détruire à peu près n'importe MOVE #$100,-(5SP) : Drapeau indiquant que la fenêtre est === 

L 5 Ÿ MOVE #dBoxProc, -(SP) : Fenêtre du type "boîte à dialogue". 
quoi, mais nous voulions un MOVEQ.L #-1,D0 : SFFFFFFFF (-l) dans le registre de données 2 
accessoire efficace qui n'oblige MOVE.L  DO0,-(5P) : empile -1 pour fenêtre au premier plas. 

RER . CLR — (SP) : Pas de case “d'échappement”. 
pas l'utilisateur à cliquer Sur une CLR.L -(S) ; Pas de procédure spéciale (fenêtre sta 
série de boutons “OK” ou _New#indow : Création de la nouvelle fenêtre. 
£e " , . MOVEA.L (SP)+,A0 : Dépile pointeur sur la fenêtre, placé cs 22 

Annuler pour parvenir à faire MOVE. L A0, dCtiWwindow(A4) : Sauvegarde le pointeur dans le "DCE". 
un peu de place sur une disquette. MOVE dCtlRefNum(A4),WindowKind(A0) : Indique fenêtre "système". 
MOVE.L  A0,-(SP) : Empile le pointeur sur la fenêtre. 





A 


LE 


_SetPort 
MOVE. dCtlwindow(A4),-(SP) 
Besinopas te 
— (SP) 
"nes 
Se L  #$D0010,-(SP) 


; La fenêtre devient le port graphique courant. 

; Empile le pointeur sur la fenêtre. 

; Début de mise à jour de la nouvelle fenêtre. 

; Empile identificateur de la police Chicago (0). 
: Chicago devient la police courante. 

: Déplace le "crayon" en 16 (coordonnée 


_MoveTo ; verticale) et 13 (coordonnée horizontale). 

PEA ‘Pour trouver Pom''s : ‘ : L'instruction PEA, lorsqu'on 
_DrawString + lui communique directement une 
MOVE.L #$1D0010,-(SP) + chaïne de caractères, empile 
_MoveTo + l'adresse de 12 chaïne précédée 
PEA ‘+ les kiosques ou le 39.51.24.43 + d'un octet indiquant sa 
_DrawString + longueur (indispensable à la 
MOVE.L  #$3D0010,-(5P) : routine "_DrawString" qui se 
_MoveTo + chargera de l'affichage de la 
PEA "Pour supprimer un fichier :' + chaïne). Au moment de 
_DrawString : l'assemblage, la chaîne et 
MOVE.L #$4D0010,-(5P) : l'octet indiquant sa longueur 
_MoveTo ; sont placés à la fin du code. 
PEA ‘e le sélectionner, cliquer sur ''Ouvrir''… 

_DrawString 

PEA gray (A5) : Le registre A5 pointe sur les variable globales 
_PenPat : parmi lesquelles on trouve la définition des 
MOVE. L #$290010,-(SP) “grisés". Le "gris moyen" se trouve à l'adresse 
_MoveTo ; pointée par A5, moins 24. 

MOVE.L #$290108,-(SP) : Trace une ligne pointillée entre la position 
_LineTo : courante du crayon et les coordonnées indiquées 


: Affichage de la "bestiole" 


LEA BitMap, A6 
LEA Def, A3 
MOVE.L A3, (A6) 


MOVE. L A6,-(SP) 
MOVEA.L dCtiWindow(A4),A6 


ADDO.L  #2,A6 

MOVE.L  A6,-(SP) 

PEA RectSource 

PEA RectDest 

CLR — (SP) 

CLR.L — (SP) 

_CopyBits 

MOVE.L dCtlWindow(A4),-(SP) 
_EndUpdate 


; Adresse de la structure "BitMap" dans A6. 

; Adresse de la définition du dessin dans A3. 
; Adresse de la définition dans la structure. 
; Empile l'adresse de la structure "BitMap". 
; Le pointeur sur la fenêtre est placé dans A6. 
: Ajoute 2 au pointeur pour "BitMap” fenêtre. 
; Adresse du "BitMap" de la fenêtre dans A6. 
; Empile l'adresse du rectangle source. 

+: Empile l'adresse du rectangle destination. 
; Transfert classique (PENMODE 0). 

; Pas de masque. 

; Affichage. 


+: Empile le pointeur sur la fenêtre. 
; Fin de mise à jour de la fenêtre. 


;: Appel et affichage de la fenêtre standard de sélection des fichiers. Pour appeler la 


: routine, 


employée ici de la manière la plus simple, 11 faut empiler, dans l'ordre : 


; = la position horizontale de l'angle supérieur gauche de la fenêtre (2 octets); 
: — la position verticale de l'angle supérieur gauche de la fenêtre (2 octets); 
{positions données en coordonnées globales) 

: — 4 octets à 0 (jamais utilisés); 
+ - un pointeur sur une procédure de filtrage des fichiers (non utilisé); 

; - nombre de types indiquant les fichiers à afficher, ou -1 pour afficher tous les fichiers 


{2 octets); 


+ - pointeur sur la liste des types de fichier, ou 0 si zone précédente = -l; 

+ - pointeur en cas d'utilisation d'une fenêtre personnalisée, 0 sinon; 

;: - adresse d'un tampon de 72 octets utilisé par la routine pour le retour des informations 
(nom du fichier, numéro de référence du volume...); 

; - sélecteur de routine (2 octets), 2 pour notre accessoire. 


BoucleFlash 


Suite 





MOVE. L #$00280014,-(5SP) + Coordonnées. 
CLR.L - (SP) # 0 
CLR.L - (SP) +: Pas de filtrage. 
MOVE #-1,-(5P) : Tous les fichiers. 
CLR.L (SP) : Pas de liste de types. 
CLR.L — (SP) ; Fenêtre standard. 
PEA TamponRep + Adresse du tampon "TamponRep". 
MOVE #sfGetFile,-(SP) +: Selecteur. 
Pack3 : Appel de la routine. 
LEA TamponRep, Al + Adresse de base du tampon dans Al. 
TST rGood(Al) : Si nul, l'utilisateur a "cliqué" sur 
BEQ.S Annuler + “Annuler": retour à l'application. 
LEA TamponiO, A0 + Les routines 
CLR.L 1oCompletion (A0) : utilisée pour les 
LEA rName (Al),A2 : entrées/sorties 
MOVE. L A2,10FileName (A0) +: ont été décrites 
MOVE rvolume (Al),1oVRefNum(A0) : dans les numéros 
MOVE .B rVersion(Al),1ioFileTÿpe (A0) + 17 ("Catalogue sur 
_Delete + Imprimante", "BSAVE 
TST DO +: et BLOAD avec le 
BEQ.S Suite : Basic Microsoft”) et 
+ 18 ("Modifications 
MOVEQ #19, D3 + des informations 
CLR — (SP) : pour le "Finder"") de 
_FlashMenuBar + Pom's. 
DBRA D3,BoucleFlash ; TST DO après 
BRA.S Annuler ;: _Delete permet de 
;: savoir si le fichier 
CLR.L 1oCompletion (A0) ; est en cours 
CLR 1oVolïndex (A0) : d'utilisation. 
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Nous ne nous étendrons pas sur 
son fonctionnement, le source 
(aussi présent sur la disquette 21) 
étant généreusement commenté. 















Tous les fichiers créés Sur U 
disquette, même s'ils sc 
la poubelle et si celle-ci 
laissent une trace sur vot 


disquette et occupent enco 
place. Pour y remédier : - 





Apr s de nombreuses opérations 


de one int. de fichiers, on a 








ee. +. à recopier ensuite 
riginal 
afin de garder la belle ee 
qu'on y avait collé .. 












dans la 
LaserWriter ! 






“PostScript error” suivi du 
message peu réconfortant 


“Document OK, but cannot be 





printed” : voilà ce qui arrive 
rsqu'on tente d'imprimer sur la 
Laser Writer un document dont le 
nom comporte une parenthèse 
fermante. 
Merci à Bruno Rives qi 
aidés dans l'a 
évidente, de ce bug ! 










nous à 
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LEA zName (A1}),A2 









MOVE.L A2,ioVNPtr(A0) ; Si l'utilisateur de 
_GetVolïnfo ; l'accessoire tente de = 
_OffLine ; détruire un fichier => Corbeille.R 
MOVE #1,D1 ; ouvert, on inverse 

Erreur MOVE D1,ioVRefNum (A0) ; rapidement, et 20 d 
_Mount Vol ; fois de suite, la °+—-> Corbeille.Rsrc 
MOVE #2,D1 ; barre des menus. 
TST ioResult (A0) ; On retourne ensuite à TYPE DRVR = PROC 
BNE.S Erreur ; l'application. °—> Corbeille L 30 






+—-> Corbeille 





; Avant de revenir à l'application, on inverse une dernière fois la barre 
; des menus, afin qu'elle ne reste pas en caractères blancs sur fond noir. 


Annuler MOVE.L dCtlWindow(A4),-(5SP) =) fl 
CLR.L dCt1Window (A4) a CS Corbeille.Job 
_DisposWindow 
DA D. = LS 























_FlashMenuBar d@) Asm +—-> Corbeille.Asm Exec Edit 

Sortie MOVEM.L  (SP)+,A1-A4 Link +°—-> Corbeille.Link Exec Edit 
CLR DO Rmaker +°-> Corbeille.R Exec Edit 
RTS 






; Tampons et contantes. 






> Corbeille.Link 
£ 


+—> Corbeille.kel 


TamponIO DCB.B ioV@E1lSize, 0 ; 64 octets pour entrées/sorties. 
TamponRep DCB 36,0 ; 72 octets pour _Pack3. 

RectangleF DC 198,20,281,368 ; Coordonnées (globales) fenêtre. 

; Structure "BitMap”". 

BitMap DC.L 0 ; Stockage adresse de la définition. 
OLBitMap DC 8 ; Nombre d'octets par ligne. 
RectSource DC 0,0,54, 64 ; Coordonnées du rectangle source. 















18,280,72,344 ; Coordonnées rectangle destination. 





RectDest DC 







Def $0008, $0002, $0000, 50000, S0004, 50004, $0000, 50000, $0006, S000C, $0000, $0000, $0006, $000C, $0000, $0000, $0006 


$000C, 50000, $0000, $0005, $3F94, S50000, 50000, $0002, $CO068, $0000, $0000, $0001, $0010, $0000, $0000, $0002, $0008 
50000, 50000, $0002, S7FC8, $0000, 50000, 50004, SBBA4, $0000, S0000, 50004, $1F04, $0000, $0000, $0004, $2084, $0000 
$0000, $001E, $404F, $0000, $0000, S006A, $404A, $C000, SFCOO0, S01DF, $209F, $7001, $4A00, $02B3, $DF79, $A802, $3100 
50561, SFFFO, SD404, $0280, SOAD4, SFFE5, $6A09, S2440,S1580,S3F80, $3512,$4120, $2B00, $0000, $1AA4, $9210, $3600 
$0000, $0D90, 52488, S6C00, 55540, SO6CA, 54924, $5415,$0015, 50544, $9002, $A940, $0000, $52A3, $FFFF, $D81C, $0000 
$0362,50001, SA832, $2A80, $02A2, $4445, $D032, S0008, $0162,$8889, $B132,$0018,$11A2, $8889, $5432, $67C3, $8542 
$8889, 5703C, SD6A6, $01C2, $8889, 53030, SD6A3, $0182,$8889, 53130, SD6A1, $8182,$8889, 51830, $D6AO, $8302, $8889 
50830, $66A7, $0202, S9F89, S0A00, 50000, S0A02, $E069, S04A8, $0002, $A403, $8519, $0402, SAAAB, $0402, $2045, $0200 
$0000, S0CO02, $8015, $0328, $0002, 59804, $0003, $0182, S2A88, $3005, S000B, $00C2, $4048, $6008, $0801, $0064, $8024 
$CO0A, $1C05, $003C, S$8027, $8008, S0E01, $0018, $E0E3, $000A, $0705, 50009, SFFF2, $0008, $0381, $0009, $FFF2, $0008 
$0101,$0004, SFFE4, $0005, $000B, $0004, $9F24, 50004, $0003, SO0E2, S60C8, $E002, $8015, $0317, $515D, $1802, $2045 
$1C08, $1102, 50703, S8A19, $6000, $2080, S00C2, $6061, S3FFF, $CO7F, $FF83, $FFFF 


RRRRRERRRERER 


Exemple en TimesBold 12 : 


Le programme source étant 
largement commenté, nous 
nous bornerons à indiquer ici 
les caractéristiques princi- 
pales du déroulement de la 
routine. 





Disquette Macintosh numéro 21 







Outre les fichiers et programmes listés dans ce numéro, vous 
trouverez sur cette disquette les polices TimesBold (10, 12, 14, 
18 et 24 points), TimesBolditalic (10, 12, 14, 18 et 24 points), 
Timesltalic (10, 12, 14, 18 et 24 points), HelveticaBold (10, 
12, 14, 18 et 24 points), HelveticaBoldOblique (10, 12, 14, 18 
et 24 points), HelveticaOblique (10, 12, 14 et 18 points), 
CourierBold (10 et 12 points), CourierBoldOblique (10 et 12 









points) et CourierOblique (10 et 12 points). 


Ces polices remplacent avantageusement, lorsqu'elle sont 
employées en gras ou en italique (ou les deux), celles de 
l'imprimante LaserWriter. Les caractères affichés à l'écran sont 
beaucoup plus lisibles et l'impression (sur ImageWriter) plus 
fidèle. 
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Exemple en Times gras 12 : 


Le programme source étant 
largement commenté, nous 
aous bornerons à indiquer 
ici les caractéristiques 
priacipales du déroulement 
de la routine. 
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et article n'enrichira 

guère votre Basic, qui 

dispose déjà d'instruc- 

tions (telles que 
WINDOW, EDIT FIELD ou 
EDIT$) pour vous permettre la 
saisie de variables via fenêtres et 
gestion de texte. 


En revanche, peut-être vous 
apportera-t-il quelques éclaircis- 
sements sur la façon dont 
s'opèrent la manipulation des 
fenêtres et l'édition de textes au 
niveau du système, et donc sur le 
type de routines utilisées par le 
Basic. 


Les opérations à réaliser dans le 
cadre du programme en 
assembleur listé plus loin sont les 
suivantes : 


+ Ouverture d'une fenêtre dont 
on donne les limites, via un 
tableau du Basic. 

+ Ouverture d'un "texte 
éditable", dont on indique de 
même les limites "visibles" et 
les dimensions. 

+ Saisie de texte. 

- Utilisation de la souris pour 
déplacer le curseur, placer un 
point d'insertion de texte, ou 
sélectionner un "morceau" de 
texte en vue de l'effacer. 

+ Retour au Basic lors de la 
frappe de la touche RETURN 
ou de la touche "commande" 
(et ce quelle que soit la position 
du curseur à cet instant). 

+ Récupération du texte dans une 
variable chaîne de caractères, 
dans la limite d'un nombre 
maximum de caractères indiqué 
au départ par la longueur de la 
chaîne. 


A partir du Basic, cette routine 
s'appelle de manière classique, 
avec passage en paramètre du 





pointeur sur le descripteur de la 
chaîne utilisée pour le transfert 
(voir programme-exemple). 


Principes de 
fonctionnement 


Le programme source étant 
largement commenté, nous nous 
bornerons à indiquer ici les 
caractéristiques principales du 
déroulement de la routine. 


Variables de travail 


+ Lorsque se produit un 
"événement" (enfoncement d'une 
touche, déplacement de la souris, 
clic...), il se caractérise par un 
certain nombre d'informations : 
type de l'événement, contenu, 
résultat, type de touche ou de 
"clic". Ces informations sont 
retournées dans une zone de 
stockage dont l'adresse doit être 
indiquée à la routine chargée de 
saisir les événements 
(GetNextEvent). La zone 
baptisée Evenement est utilisée 
pour cela. 


+ Un texte éditable comporte une 
zone de visibilité (ViewkRect dans 
notre exemple) et une zone de 
stockage qui lui est au moins 
égale (DestRect). 


- FenetreStockage est réservée 
pour le stockage de l'ensemble 
des informations nécessaires à la 
gestion d'une fenêtre par le 
système. 


Principales 
routines utilisées 


+ NewWindow, comme son nom 
l'indique, permet d'ouvrir une 


Gérard Michel 


nouvelle fenêtre dont on indique 
les paramètres, en particulier les 
dimensions, le type et le titre 
éventuel. Cette fonction 
retourne un pointeur sur la 
fenêtre, qui permettra ensuite 
d'appeler les fonctions de gestion 
des fenêtres, par exemple SetPort 
qui spécifie le “port” 
d'entrée/sortie à retenir par les 
autres routines. 


* TENew ouvre un enregis- 
trement "texte éditable", dont on 
indique au préalable les zones de 
visibilité et de stockage. Cette 
fonction retourne un “Handle" 
(c'est-à-dire un pointeur sur 
l'adresse d'un pointeur) sur 
l'enregistrement texte ainsi 
constitué, "Handle" qui permettra 
l'appel des autres routines 
d'édition de texte. TEActivate 
active l'édition de texte, tandis 
que TEldle fait apparaître le 
curseur et détermine ainsi le point 
d'insertion du texte. 


+ TEGetText, moyennant l'indi- 
cation du ‘“Handle” sur 
l'enregistrement texte, retourne 
un "Handle" sur les caractères qui 
le constituent, autorisant 
finalement l'accès au contenu 
même du texte, en termes de 
codes ASCII. A noter par ailleurs 
que les deux octets qui se 
trouvent à $3C et $3D du début 
de l'enregistrement texte 
contiennent la longueur du texte, 
et donc le nombre de caractères. 


*- TEKey assure pour sa part 
l'édition d'un caractère, soit 
affichage et stockage dans le texte 
(il faut lui passer en paramètres, 
via la pile, le code ASCII du 
caractère en question et le 
"Handle" sur le texte concerné). 
TEClick prend en charge les 
"clics" dans le texte (insertion du 
curseur ou sélection d'une zone). 
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+ GlobalToLocal convertit les 
coordonnées de la souris 
retournées par GetNextEvent, 
calculées par rapport à l'écran 


fenêtre active, 


Programme de | 
LA 


démonstration _ 
DEFINT A-Z de 
VV$-SPACES$(256) 

DIM C(323),d$(4) 


DATA 0,0,0,0,0,0,0,0,0,0 

"Rectangles de la fenêtre et du texte 

DATA 50,40,70,200,3,2,18,150,3,2,18,150 

"Début du code de la routine 

DATA &H4E56,0,&H42A7,&HA924,8&H261F 
DATA &H42A7,&H487A,&HFEBA,&H487A 

DATA &HFE9E,&H42A7,&H1F3C,-1,&H3F3C, 1 
DATA &H2F3C,-1,-1,&H1F3C,0,&H2F3C,0,0 
DATA &HA913,&H2657,&HA873,&H42A7,&H487A 
DATA &HFE88,&H487A,&HFE7C,&HA9D2 

DATA &H2457,&HA9D8,&H2F0A,&HA9DA 

DATA &H4267,&H3F3C,&HOFFF,&H487A,&HFE4C 
DATA &HA970,&H301F,&H67EC,&H6046,&H2F0A 
DATA &HA9CB,&H285F,&H2254,&H2852,&H322C 
DATA &H003C,&H206E,8,&H1828,1,&H2028,1 
DATA &H0280,&H00FF,-1,&H2840,&H7000 

DATA &HB041,&H6700,10,&H5240,&H+8D9 
DATA &HB800,&H66F2,&H2F0A,&HA9CD 

DATA &H2F0B,&HA92D,&H2F03,&HA91F,&H2F03 
DATA &HA873,&H4E5E,&H4E75,&H383A 

DATA &HFE08,&H303A,&HFDF6,&H0C40,1 

DATA &H6700,&H0032,&H0C40,3,&H6700,12 
DATA &H0C40,5,&H6700,4,&H6682,&H0804,8 
DATA &H6692,&H3F3A,&HFDD6,&H301F,&H0C00 
DATA 13,&H6786,&H3F3A,&HFDCA,&H2FO0A 
DATA &HA9DC,&H4EFA,&HFF66,&H4267 

DATA &H2F3A,&HFDC2,&H487A,&HFDC4 

DATA &HA92C,&H301F,&H0C40,3,&H6600 


dans son ensemble, dans le 
système d'axes déterminé par la 


l'insertion à l'endroit voulu. 





. Les autres routines, relatives à 
la manipulation des fenêtres, 


afin d'assurer parlent d'elles-mêmes... 


G 


DATA &HFF50,&H42A7,&HA924,&H201F,&HB08B 
DATA &H6700,12,&H2F3A,&HFDA8,&HA91F 
DATA &H4EFA,&HFF3A,&H487A,&HFD98 
DATA &HA871,&H2F3A,&HFD92,&H103C,0 
DATA &H1F00,&H2F0A,&HA9D4,&H4EFA,&HFF22 
FOR i-0 TO 21:READ c(i):NEXT 

"zone de stockage de la fenêtre 
FOR i-22 TO 177:c(i)-0:NEXT 
FOR i-178 TO 323:READ c(i):NEXT:DE=178 

10 CLS:V$-LEFTS$(vv$,15):A/=VARPTR(c(DE)) 
A! VARPTR(V$) 
d$(1)=v$ ‘ v$ comporte 15 caractères, dont des 
"blancs à la fin si nécessaire 

"déplacement de la fenêtre 
c(10)=80:c(11)-40:c(12)=-100:c(13)-200 
v$=LEFTS$(vv$,15):AI=-VARPTR(C(DE)) 
A! VARPTR(V$) 

d$(2)=v$ 

"déplacement et changement de dimension 
c(10)=100:c(11)-20:c(12)-250:c(13)=450:c(14)=3 
c(15)=4:c(16)-130:c(17)-420:c(18)-3:c(19)=4 
c(20)=-130:c(21)-420 
V$=LEFTS$(vv$,255):AI=VARPTR(c(DE)) 
A! VARPTR(V$) 

d$(3)=v$ 
c(10)=80:c(11)=240:c(12)-100:c(13)-400:c(15)-2 
c(16)=18:c(17)-150:c(19)-2:c(20)=18:c(21)-150 
V$=LEFTS$(vv$,15):AI-VARPTR(c(DE)) 
A! VARPTR(VS$) 
d$(4)=v$ 
CLS:FOR i=1 TO 4:PRINT d$(i) 
PRINT LEN(dÿ(i)):NEXT 
INPUT z$ 
IF z$="" THEN c(10)=50:c(11)-40:c(12)=-70:c(13) 
-200:GOTO 10 





Source de la routine en langage machine 


.Träp 
. Trap 
.Trap 
. Trap 
. Trap 
. Trap 


__NewWindow 
_SetPort 
_TEldle 
_GetNextEvent 
__TENew 
_TEActivate 
__TEGet Text 
_TEDispose 
__TEKey 
_FindWindow 
_FrontWindow 
_SelectWindow 


. Träp 
. Trap 
.Trap 
. Trap 
. Trap 
. Trap 
. Trap 
. Trap _TEClick 


. Trap _CloseWindow 


em 


_Globa1lToLocal 


$A913 
$A873 
$A9DA 
$A970 
$A9D2 
$SA9D8 
$A9CB 
$A9CD 
$A9DC 
$A92C 
$SA924 
$A91F 
$A871 
$A9D4 
SA92D 
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Evenement ; Caractéristiques de l'événement 
0000 Quoi : DC (e) Type F | | 
LS 


0000 0000 Message: DC.L 0 ; Information complémentaire 
0000 0000 Quand: DC.L 0 ; Moment 
0000 0000 Point: DC.L (e) ; Coordonnées Souris @ 
0000 Modifie: DC 0 ; Etat touche et bouton 
0000 0000 WFenetre: DC.L 0 ; Résultat de recherche de fenêtre 
0032 0028 0046 O00C8 Rectangle DC 50,40, 70, 200 ; Rectangle de la fenêtre 
0003 0002 0012 0096 ViewRect PC 3,2,18,150 ; Rectangle de visibilité du texte 
0003 0002 0012 0096 DestRect DC 3;:2;:19,150 ; Limites du texte 
XXXX KXXXX XXXX FenetreStockage DCB $9C, 0 
ModifieReg EQU D4 ; Bits de modif. par GetNextEvent 
TextHReg EQU A2 ; "“Handle" sur le texte 
FenetrePReg EQU A3 ; “Handle" sur la fenêtre 
CMDKEY EOU 8 ; Signaäale usage touche "commande" 
4E56 0000 LINK A6, #0 
42A7 CLR.L — (SP) 
A924 _FrontWindow 
261F MOVE.L (SP)+,D3 ; Sauvegarde Handle fenêtre initiale 
MAJFenetre 
42A7 CLR.L — (SP) ; Ouverture d'une nouvelle fenêtre 
487À FEBA PEA FenetreStockage 
487A FE9E PEA Rectangle 
42A7 CLR.L- (SP) ; Sans titre 
1F3C FFFF MOVE.B #-1,-(SL) ; Visible de suite 
3F3C 0001 MOVE #1,-(SP) ; De type "boîte à dialogue" 
2F3C FFFF FFFF MOVE.L #-1,-(SP) ; Devant toutes les autres 
1F3C 0000 MOVE.B  #0,-(SP) ; Sans "carré de fuite" 
2F3C 0000 0000 MOVE.L #0,-(SP) 
A913 _NewWindow 
2657 MOVE. L (SP),FenetrePReg 
A873 __SetPort : Nouvelle fenêtre = port entrée/so. 
MAJTextEdit 
42A7 CLR.L — (SP) ; Ouverture d'un texte éditable 
487À FE88 PEA DestRect 
487A FE7C PEA ViewRect 
A9D2 __TENew 
2457 MOVE. L (SP),TextHReg ; Dont on récupère le Handle 
A9D8 _TEActivate ; Et que l'on active 
Boucle 
2F0A MOVE.L TextHReg,-(5SP) 
A9DA _TEIdle ; Curseur clignotant 
4267 CLR — (SP) 
3F3C OFFF MOVE #SOFFF, -(SP) ; Autorise 12 types d'événements 
487A FE4C PEA Evenement 
A970 _GetNextEvent ; Un événement ? 
301F MOVE (SP) +, DO 
67 EC BEQ Boucle ; Non... Attendre... 
60 46 BRA.S Traitev ; Oui... Le traiter 
Sortie 
2F0A MOVE.L TextHReg,-(SP) ; Il faut récupérer le texte 
A9CB __TEGet Text ; Avant retour au Basic 
285F MOVEA.L (SP)+,A4 ; Pointeur/handle sur le texte 
2254 MOVEA.L (A4),A1 ; Al=adresse des caractères 
| 2852 MOVEA.L (A2),A4 ; Ad4=adr. de l'enregistrement Texte 
322C 003C MOVE $3C(A4),D1 ; Longueur du texte 
206E 0008 MOVEA.L 8(A6),A0 ; Récupère le descripteur de chaîne 
1828 0001 MOVE.B 1(A0),D4 ; Longueur de la chaîne (< 255) 
| 2028 0001 MOVE.L  1(A0),D0 ; Adresse de la chaîne 
| 0280 OOFF FFFF ANDI.L #$O0OFFFFFF,DO ; Convertie en 1 mot long 
| 2840 MOVEA.L DO,A4 
| 70 00 MOVEQ #0, DO ; DO=nombre de caractères copiés 
{ 
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B041 

67 00 00 OA 
5240 

18D9 

B800 

66 F2 

























































2F0A 

A9CD 

2F0B 

A92D 

2F03 

A91F 

2F03 

A873 

4E5SE 

4E75 

383A FE08 
303A FDF6 
0C40 0001 
67 00 00 32 
0C40 0003 
67 00 00 OC 
0C40 0005 
67 00 00 04 
66 82 
0804 0008 
66 92 
3F3A FDD6 
301F 

O0C00 000D 
67 86 
3F3A FDCA 
2FO0A 

A9DC 

4EFA FF66 
4267 

2F3A FDC2 
487A FDC4 
A92C 

301F 

0C40 0003 
66 00 FF50 
42A7 

A924 

201F 

B08B 

67 00 00 OC 
2F3A FDA8 
A91F 

4EFA FF3A 
487A FD98 
A871 

2F3A FD92 
103C 0000 
1F00 

2F0A 

A9D4 


4EFA FF22 


50 


Compare 


Traitev 


Touche 


Souris 


Dsuite 





CMP D1,D0 

BEO Fini 

ADDQ #1,D0 
MOVE.B (Al)+, (A4) + 
CMP.B DO, D4 

BNE Compare 


% 


Ve % 


MOVE.L TextHReg,-(SP) 


Autant de caractères que ses 2) 


xte en conti ? 
te tient SR 


Transfert “dans" la chaîne 
Autant de caractères que la 
chaîne peut en contenir ? 





_TEDispose ; Rend place du texte à la machine 
MOVE.L A3,-(SP) 

_CloseWindow ; Ferme notre fenêtre 

MOVE.L D3,-(SP) 

_SelectWindow ; Remet en activité fenêtre initiale 
MOVE.L D3,-(SP) 

_SetPort 

UNLK A6 ; Retour au Basic 

RTS 

MOVE Modifie,ModifieReg 

MOVE Quoi, DO ; Quel type d'événement 

CMPI #1,D0 PCCIIE 

BEQ Souris 

CMPI #3, DO ; Touche 

BEQ Touche 

CMPI #5, DO ; Auto-répétition d'une touche 
BEQ Touche 

BNE Boucle ; On ne prend pas les autres 
BTST #CmaKey,ModifieReg ; Touche commande ? 
BNE Sortie ; Si oui => sortir 

MOVE Message+2,-(SP) 

MOVE (SP) +, DO 

CMPI.B #13,D0 ; Touche RETURN ? 

BEQ Sortie 


MOVE Message+2,-(SP) 
MOVE.L TextHReg,-1(SP) 


_TEKey 

BRA Boucle 

CLR — (SP) 

MOVE.L Point,-(SP) 

PEA WFenetre 
_FindWindow F2 
MOVE (SP) +, DO 

CMPI #3, DO ; 
BNE Boucle 

CLR.L — (SP) 
_FrontWindow ; 


MOVE.L (SP)+,D0 
CMP.L FenetrePReg, DO ; 


BEO Dsuite 

MOVE.L WFenetre,-(SP) ; 
_SelectWindow 7 
BRA Boucle 

PEA Point 

_GlobalToLocal = 
MOVE.L Point,-(SP) ;’ 


MOVE.B  #0,D0 


MOVE.B DO,-(SP) 7 
MOVE. L TextHReg, - (SP) 
_TEClick L 


BRA Boucle 


; Sinon, faire éditer le caractère 


Où s'est produit le clic ? 


Dans la zone "contenu" ? 


Si oui, notre fenêtre est-elle 
toujours active et "au-dessus" 


Si non, la ré-activer et attendre 
un autre évènement 


Convertit dans le système de 
coordonnées de la fenêtre 


Pas de clic "majuscule" 


Fait "éditer" le clic 





Pom's n° 21 

















La 36ème piste 


B. Toméno 


Ou 528 secteurs disponibles 


ne disquette "normale", 
formatée sous DOS 3.3, 
comporte, comme 
chacun sait, 35 pistes de 


16 secteurs, soit 560 secteurs 
dont seulement 496 sont 
disponibles pour l'enregistrement 
des programmes puisque le DOS 
se réserve 48 secteurs (pistes 
00,01,02) et qu'il en alloue 
encore 16 pour le stockage du 
catalogue et de la VTOC (piste 
17) : voir schéma ci joint. 

Or le DOS ne se sert réellement 
que de 37 des 48 secteurs qu'il se 
réserve (il utilise la totalité des 
pistes 00 et 01, mais seulement 5 
secteurs de la 02, à savoir les 
secteurs 00 à 04) . De même 
CATALOG et VTOC laissent 
inoccupés 5 des 16 secteurs de la 
piste 17, à savoir les secteurs 01 à 
05. Recupérer les 11 secteurs 
libres de la 02 et les 5 de la 17, 
c'est une piste gagnée ! 


0000000000086668 
O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 


æ 
œ 
 d 
e 
e 
e 
æ 
| Q 
| J 
| d 
ë 
œ 
El 
| d 
e 
& 
Dos 


Catalog 
36ème piste 
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O000000000000000 
O000000000000000 
O000000000000000 


Secteurs récupérables 


Le formatage en 35 pistes n'est 
qu'une habitude; en fait il y a sur 
une disquette de quoi tracer une 
36ème piste que 95% des lecteurs 
sont capables de lire. On peut 
ainsi encore gagner 16 secteurs et 
on arrive à 496 + 16 + 16 = 528 
secteurs-utilisateurs. 


La pratique 


Tout d'abord il faut se munir d'un 
éditeur de secteurs genre 
DISK:-FIX mais tout autre peut 
convenir (COPY II+ 4.3, 
NIBBLE AWAYS...) y compris 
ceux publiés dans Pom's (voir 
Mobby disk dans n°15 ou Accès 
direct dans le n°16). 


La manœuvre se fait en 5 temps 
(les 4 premiers modifient la 
VTOC, secteur 00 de la piste 17). 


\ 
S 
8 


O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
S6S666666600000 

O00000000000000 

O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 


O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
860606686666086686 


1 Initialiser une disquette avec 

votre Hello préféré... mais 
après être passé en moniteur (Call 
-151) et avoir remplacé la valeur 
de $BEFE (normalement $23) par 
$24! Ceci va entrainer un 
formattage sur 36 pistes lors de 
l'initialisation. Charger votre 
éditeur de secteurs et lire le 
secteur 00 de la piste $11 (17). 
Sur la 7ème ligne (si votre éditeur 
affiche des lignes de 8 octets, ce 
qui est le cas habituel sauf pour 
NIBBLE AWAYS) l'octet $35 (le 
53ème du secteur, le 5ème de la 
ligne 30) doit être à $24, et non 
pas à $23 comme sur une 
disquette normale. (Une autre 
possibilité pour faire cette 
première manipulation est de 
formatter directement une 
disquette sur $24 pistes avec un 
utilitaire Ad Hoc puis de 
remplacer $23 par $24 avec votre 
éditeur de secteurs sur le secteur 


Plan d'occupation des 
secteurs d'une disquette 



































00 de la piste $11). 


2 Informer le DOS que cette 

36ème piste est inoccupée : 
toujours sur le secteur 00 de la 
piste $11 remplacer en ligne $CO 
les 5ème et 6ème octets (00 00) 
par FF FF. 


3 Dire au DOS que les secteurs 
O1 à OS de la piste $11 sont 
libres. Toujours sur le même 
secteur, lire en ligne $78 les 5ème 
et 6ème octets, normalement à 00 
00, et les remplacer par 00 3E. 


4 Déclarer que les 11 secteurs 
($5 à $OF) de la piste 02 sont 
disponibles. En ligne $40 du 
même secteur remplacez les octets 
1 et 2 (00 00) par FF EC. 
Réécrivez alors le secteur 00 sur 
la disquette 
5 Le 5ème temps se fait en lisant 
le secteur $06 de la piste $11. 
Lire ce secteur et sur la 1ère ligne 
($00), remplacer par 00 00 les 
octets 2 et 3 (normalement 11 05, 
ce qui indique au DOS de 





poursuivre le CATALOG sur la 
piste $11, secteur $05, au cas, 
bien improbable, où le catalogue 
serait si fourni que les secteurs 
$06 à $0F ne lui suffiraient pas) : 
si le DOS veut poursuivre 
l'écriture du catalogue sur les 
secteurs 01 à 05 de la piste 17, il 
est ainsi informé que ceux ci ne 
sont pas disponibles. 


Réécrivez maintenant ce secteur 
06 sur la disquette. Voilà, vous 
avez gagné 36 secteurs soit 2 
pistes. 


Si vous faites la même chose sur 
une disquette sans DOS (le cas 
des disquettes réservées au 
stockage des fichiers d'un tableur 
ou d'un traitement de texte par 
exemple, mais vous pouvez vous 
les fabriquer vous même avec 
DISK-FIX ou d'autres 
programmes permettant de 
supprimer le DOS) vous obtenez 
des disquettes de 564 
secteurs-utilisateur . 564 et non 
pas 576 comme le voudrait 


16*36, car il faut quand même 
garder un peu de place pour 
Catalogue (10 secteurs), VTOC (1 
secteur) et message de BOOT 
éventuellement( secteur 00 de la 
piste 00). 


Evidemment pour copier une 
disquette ainsi batie il faut prendre 
un utilitaire capable de reconnaitre 
la piste 36 : le plus rapide semble 
être encore © MUNCHER ‘ 
(moins de 30 secondes !) tandis 
que Locksmith ou Crazy Copy le 
feront en quelques minutes 
(répondre $23 à la question "End 
track"). 


Encore une remarque : cette 
manœuvre est aussi possible avec 
les DOS non standard (Z-DOS et 
compagnie) d'autant que certains 
d'entre eux sont encore plus 
courts que le DOS normal. 








Vos textes en direct de voire ordinateur 
à nos photocomposeuses 


Gain de temps et économie 









Les textes de vos articles, catalogues, 
annuaires ou brochures saisis sur 
otre micro-ordinateur sont envoyés 


V 
directement sur notre 
Tue 













photocomposeuse 


Nous vous évitons ainsi, 
le coût et le temps de la saisie 
supplémentaire que 
nécessite le traitement 
traditionnel de la photocomposition 
avant l'impression des documents. 












Si vous le désirez nous pouvons 
également nous charger 
de l'impression et du brochage. 











Nous 


(111828.18.88 


13 et 15, avenue du Petit-Parc - 94300 VINCENNES 
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Yvan Koenig 


e titre un peu provo- 

cateur reflète ma 

première réaction 

après examen du kit 
de mise à niveau //c pour l'Apple 
lle. On ne trouve en effet pas 
moins de 1094 octets différents 
dans les ROM des adresses 
$D000 à $FFFF qui regroupent 
l'interpréteur Applesoft et le 
moniteur. 


De plus, les ROM internes en 
$C100 sont totalement 
différentes. 


Finalement, les différences de 
codage n'induisent pas de très 
gros problèmes de compatibilité. 
La plus grosse déception est due à 
la fonction LIST du moniteur qui, 
bien que légèrement recodée, ne 
reconnaît pas les nouvelles 
instructions du processeur 
65CO2. 


On retrouve sur //e+ les fonctions 
de lecture/écriture sur cassette qui 
avaient été supprimées sur le //c. 


En revanche, les routines 
LORES80 du //c qui permettent de 
manipuler la basse résolution sur 
80 colonnes n'existent pas sur le 
nouveau //e+. Il auraît peut-être 
été préférable de les inclure, plutôt 
qu'un Mini-Assembleur extrait du 
moniteur du tout premier Apple II 
qui, lui non plus, ne reconnaît pas 
les nouveaux opcodes du 65C02. 


Certains petits détails peuvent 
finir par agacer : certaines routines 
identiques (minMAJ, spLINPRT, 
EOL?, sbCH) ne sont pas 
implantées à la même adresse. 
L'adresse $1F de la page zéro 
n'est finalement exploitée que par 
l'ancien Apple //e. 


L'octet en $E006, qui valait 
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Un compatible 


in compatible ? 


toujours $00 sous Applesoft, 
contient un $C4 sur le //e+, ce qui 
provoque quelques plantages pour 
les programmes qui utilisaient cet 
octet comme test de référence 
(exemple David-DOS) : il vaut 
mieux désormais référencer 
l'adresse $E050. 


Sur le plan hardware, quelques 
problèmes d'images graphiques 
“déchirées" peuvent survenir avec 
la ROM vidéo du kit de mise à 
niveau fournie par Apple; si cela 
vous arrive faites-en une copie sur 
une EPROM rapide. De même, 
Apple USA reconnaît que certains 
chips MMU (références 8314, 
8424, 8425, 8426) sont "buggés" 
et créent des problèmes avec les 
cartes 80 colonnes étendues. 


Les tableaux suivants reprennent 
l'ensemble des différences 
relevées entre Il+, //e, //e+ (ainsi 
a-t-on baptisé le //e après mise à 
niveau) et //c, pour respectivement 


les bancs d'adresses 
$D000-$F7FF, $F800-FBFF, 
$FCO0-$FFFE. Afin d'alléger ces 
tableaux, les conventions 
suivantes sont appliquées: 

" indique une instruction 


identique à celle du II+, 

"+" indique une instruction 
identique à celle du //e, 

"4" indique une instruction 
identique à celle du //e+. 


NDLR : Dans un prochain 
numéro, nous publierons la 
routine DESASM/RAM 
(assembleur Big Mac) d'Yvan 
Koenig qui permet de 
désassembler correctement les 
instructions du 65C02. On 
bascule entre les deux 
désassembleurs par Ctrl-Y, puis 
on utilise comme d'habitude la 
commande L du moniteur. 


Comparaison du contenu des ROMs de $D000 à $F7FF dans les APPLE : 


DO34- DA $P775-1 .. css ne munsoue 
DO4E- DA $F3BC-1 
DOS0- DA $F39F-1 


DO6C- DA $D8C3-1 
DO6E- DA $D8B0-1 


D56D- JSR $F78C 


DSA8- JSR $F78C 


D5BE- LDA $201,X 


DSBE- JSR $F787 


DSES- LDA $200,X 


DS5E9- JSR $F78C 


D60B- JSR $F73A 


D6F9- JSR $F7AA 


D705- LDA 524 
D707- CMP #35 


D705- JSR $F7B4 
D708- NOP 


D8B3- SBC $67 
D8BS- STA 550 
D8B7- LDA $B0 
D8B9- SBC $68 
D8BB- STA 551 


DO34- DA $03F5-1 SHLOAD remplacé par & 


DO4E- DA $03F5-1 
DO50- DA $03F5-1 


RECALL remplacé par & 
STORE remplacé par & 


D06C- DA $03F5-1 
DO6E- DA $03F5-1 


LOAD rerplacé par 6 
SAVE renplacé par & 
DS6D- JSR $D8BS5 nouvelle recherche des 
caractères en entrée 
D5A8- JSR $D8B5S 


D5B5- JSR $D8B0 
DSE9- JSR $D8B5 
D60B- JSR $D8C3 
D6F9- JSR $D8D3 


D705- JSR $D8DD 
D708- NOP 

D8BO- LDA $201,X routine SAVE remplacée par 
nouvelle routine de form- 
tage des caractères 

D8B3- BPL $D8C6 en entrée 
D8B5- LDA $0E 

D8B7- BEQ $D8CF 

D8B9- CMP #522 our 
D8BB- BEQ $D8CF 





oo 


OVOTHS eovrduez 


A orrdgp 


x errdgp 


TIVISY 30 MIOLS e2vrduez 


2708 np 
NnOYR2TJTAIUSPT eumo2 900F$ 


SCLIS SH 
vid 

O€$# daW2 
aë$ voT 
Vad 

SLY 
ACLIS S2 
OS$# A42 
ACLIS 52 
82$# 442 
SLLIS S2 
82€3$ us 


SLLIS UST 


96135 an 
S0ZI$ 524 
0€S# X42 


SLLA$ ST 
22$ A0T 


éé ao XSH 
J6€4$ ar 
VxL 

SLLAS ST 
O$ AQT 
Os$# X42 
OS$# Xa2 


os$s X42 


—68L4 
-88Lz 
9813 
+84 
-€8L4 
-28Li 
0813 
n171 
DLLI 
-VLLi 
n177| 
R177) 


ve 
-QVES 
“EvVES 
vez 
LVEI 
-SvCc4 
AE 
TVA 
-OvVE4 
-46€4 


9604 


-8r24 
823 
6+z4 
—9r2zx 


-S€24 
“2€ 24 
-VEZs 


“LEZ 
-SEzI 


-1£24 
3223 
-Qz24 
-Vzzi 
n 1171 
n1121 
-GA13 


-4314 


X'IOZ$ VOT -L8L3 
OTHO$ AN[ -b8LI 
SIN -€8L4 

bOLIS SD -I8L4 
9002$ VIS -SLLI 
0052$ UST —4LLI 
4009$ VIS -8LL3 
272 -LLLd 

06 X3H 9444 
29S -SL43 








X3Q -68L4 

XVL -88L4 

ELS VOT -9844 
272 -S8L4 
GISA$ US -Z8L4 
S€$ ALS -08L4 
ANI -déi4 

2$ ALS -Giii 
OS$# AQT -8LL4 
ACS VIS -6413 
GES VIS -LLL3 
00$# VOT -SLLI 


GI4$ dN[ -S0CI 
D4L4$ USL -20€C3 
OT+O$ dN[ -IX4 
TOCAS$ S28 -AX3 
IS$ 265 -42X4 
4°(86$) VOT -6X4 
ANI -8X 4 

OS$ dN2 -92X4 
A'(@6$) VOT -#24 
zo$# ACT -2XI 
OTIIS ASC -A0C4 
6GLA$ UST -28C04 
0293$ dN[ -68€3 
DELIS USL -98€4 
GIGIS$ USL -CH€4 
IS$ XLS -I9€3 
OS$ VLS -AVt4 
X3Q -SVt4 
JVCIS S24 -JVES 
TOS# DAS -VVCI 
A'(@6$) VOT -8vr4 
ÀASQ Li 

XVI -9VC4 
A'(86$) VOT -bvE4 
CO$# AOT -EVEX 
GGLAS$ UST -4604 
ObGAS dNl -9604 
6Z84$ dNl -2+4 
O4$ VOT -Vhzi 
9OZI$ S24 -8+T4 
BZS4 Ad2 -9r24 
6184$ dN[ -SC23 
O4$ AQT -9€24 
9OZIS SD -VEZI 
BES# Ad) -8EZ4 
2DZ$ AQT -9€24 
VXL -S€23 

0083$ aN[ -3274 
9OZIS S28 -Q23 
82S# Ad) -8273 
O3$ ACT -6224 
VXL -8274 

OES# X42 -OZ23 


O€$# X42 -QI14 


O€$# XdD -4S14 


Auesrrran seuwvzbord ser 
Dear seue]qozd sep 0913 
é +2// 2n8 p2$ Fonbznog 00 X3H -900% 


SYLAIS USL -Z040 


#244$ US -S280 
… 

ELLE 

…. 

vesvs ver 
CLR] 


COELOEETZ] 


OZ$# AND 1FU2PAN8J IF 
2er samofno3 gyL np Pnq 





COLLE TZ] 


aa8d$ 4S° -C08Q 


LOELTEE LE] 
“rss vus 


4®TIY3 000000 XSH -106Q 
*  SLX -306Q 
+060$ ‘TdE -2060 
A30 -8060 

H8LIS ST -806Q 
OC$ VIS -3060 
00$# VOT -+06Q 
AYL -c060 

TO -2060 

Co6a$ 224 -006Q 
LESY VOT -3480 


42€3$ UST -4480 
GZ$ AIS -6380 
LESe ACT -L480 
S+EAS AN[ -+380 
bise VOT -2480 
La80$ 4ST -3380 
OS02$ VOT -238Q 
SLA -4390 


seuuorcs 0h F= ojusxrg g3ea$ Tdë -+380 


euDrT ep o1punu e] jueAep 2580$ #S° 9080 
eovdre un ey2737e OZ$4 VOT -r08a 


ernosnfuu ue 62107 ASS ONY -428Q 


é,” 1954 AND -L28Q 


é ES - 2-13 6»$# dh2 -4880 
£T$ VOT -088Q 


baLi$ US -CO80 


6tea$ D38 -03vV0 


etes D38 -4avo 








00 X3H -9003 
TL84$ 4S[ -2040 


1280$ DS8 -2180 
62$t a -VIEQ 
SA93$ ST -L18Q 
dHd -9160 
32780$ 208 -+18Q 
bES VIS -Z180 
O04$4 GNY -0180 
OT$é DO -S08Q 
ATUG$ NE -2080 


s99a$ dan -V380 
as8a$ ‘Td& -8380 
9sa$ 118 -9380 
Gaisi$ US -€S80 
TO6u$ wsT -038Q 
9sa$ VIS -308Q 
2S$ VOT -2080 
V9$ VLS -VO8a 
IS$ J0V -808a 
e9$ vVOT -908Q 
69$ VLS -r08a 
OS$ 2Gv -208Q 
493$ VOT -0080 
27 -328Q 


GIS4$ UST -2280 
O048G$ #S[ -6280 
G234$ af -928Q 
106G$ uST -C28Q 
aDSA$ UST -028Q 


048$ xS[ -088Q 
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bES$ 30 -8124 
HES WIS -9124 
IZ$ WOT -+124 
2384$ ‘Td& -2124 
pz$ 230 -0124 


‘ 11ddV 88] SUvP 111$ V 00218 eP SNOU Sep nuejuos np uosjviedwoZ 
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FD2B- BIT $C010 FD2C- PLP 


FD2D- RTS 


FD2B- JMP S$FDOC 


FD2E- RTS 
FD2F- JSR $FDOC 
FD32- JSR $SFBAS 
FD35- JSR $FDOC 
FD38- CMP #$9B 
FD3A- BEQ $FD2F 


FD2E- NOP 
ét ht 


FD2F- JSR $FD21 





FD3C- RTS .… 

FD3D- LDA $32 FD3D- LDY #$0F 
FD3F- PHA FD3F- JSR $FBB4 
FD40- LDA #5F cc. vu. FD41- JSR $CC1D 
FD42- STA 532 FD42- HEX EA,EA FD42- LDY 524 
FD44- LDA $0200,X ... ....... FD44- STA $0200,X 
FD47- JSR SFDED ... so. ee couce 

FD4A- PLA 

FD4B- STA $32 ... ... FD4B- HEX EA, EA 
#D4D- LDA $0200,X ... soso.  oee cosvose 
FD64- JSR $SFDED ... ..... ee se... 

FD75- JSR $FD35 .. .....  ... ..... 

FD7A- BNE $SFD7E  ... ..... FD7A- BNE SFD84 
FD?7C- LDA ($28),Y ... ....... vos vosvoee 
FD7E- CMP #$E0  ... .... FD7E- BIT $CO1F 
FD80- BCC $FD84  ... ..... FD81- BMI SFD3D 
FD82- AND #$DF FD82- AND #$FF  FD83- NOP 

FD89- BNE S$FD3D  ... ..... FD89- BNE $FD47 
FDFO- CMP #$A0  ... .... FDFO- PHA 

FDF2- BCC $SFDF6  ... ..... FDF1- CMP #$A0 
FDF4- AND $32 FDF3- JMP SFC95 
FDF6- STY 535  ... ... FDF6- PHA 

FDF8- PHA FDF7- STY 535 
FDF9- JSR $FB78  ... ..... FDF9- TAY 

FDFC- PLA FDFA- PLA 

FDFD- LDY $35 FDFB- JMP SFC46 
FDFF- RTS FDFE- HEX EA,EA 


FE9F- BEQ SFEA7 
FEA1- ORA #$CO 
FEA3- LDY #$00 
FEAS- BEQ $FEA9 
FEA7- LDA #$FD 
FEA9- STY $00,X 
FEAB- STA $01,X 
FEAD- RTS 
FEAE- HEX EA,EA 





FEAËE- HEX EA,D1 FEAE- HEX EA,00 


FEC2- RT 

FEC3- NÔP 

FEC4- RTS … 

FEC5- HEX EA,EA,EA FECS- Bryan 
FEC8- HEX EA,EA 


FECS5- STA $C006 
FEC8- RTS 
FEC9- RTS 
FECD- LDA #540 
FECF- JSR $SFCC9 
FED2- LDY #$27 


FECF- STA $C007 
ED2- JSR $SCSAA 


FED4- LDX #$00  ... .... FEDS- BEQ $FFO3 
FED6- EOR ($3C,X) ... ....... 

FED8- PKA FED7- LDY #51 
FED9- LDA ($3C,X) ... ....... FED9- LDA 543 


FEDB- BEQ $SFEEL 
FEDD- CMP ($3XC),Y 
FEDF- BNE $FÉEB 
FÉE1- DEY 


FEDB- JSR $FEED 


FEDE- JSR $FCBA 
FEE1- 1LDY #$1D 


Vous venez de troquer votre 
Apple II+ ou Ile contre le portable 
Ilc. Les caractères souris 
perturbent un peu l'affichage des 
programmes que vous utilisiez 
régulièrement sur l'ancien Apple. 


Outre ce problème, le célèbre Pro- 
gram Line Editor (PLE), entre 
autres, ne fonctionne plus : lors 
de l'édition des lignes par Ctrl-E, 
un message d'erreur s'ajoute 
après la dernière instruction. 


Le patch suivant, incorporé au 
programme Basic qui lance PLE, 
résoud le problème : 


FD2B- BNE SFD4A 
FD2D- PLA 

FD2E- CMP #59B 
FD30- BNE S$FD38 
FD32- JMP $CCCC 
FD35- JMP $CCED 
FD38- BIT $0678 
FD3B- BMI SFD44 


FBEB- BEQ $FF3A 


FSEF- ASL 


FD3D- CMP #595 
FD3F- BNE SFD44 
FD44- PARA RTE 
FD45- LDA #$08 
FD47- TSB S$S04FB 


FD4A- PLA FFO2- JSR $FCC9 
FD4B- RTS FFOS5- STA $2E … 
FD4C- NOP FFO7- JSR SFCFA 


FD4D- JSR $C3A6 FFOA- LDY #524 
FFOC- JSR $FCFD 
FFOF- BCS S$FFOA 
FF11- JSR SFCFD 
FF14- LDY #$53B 
FF16- JSR $FCEC 
FF19- STA ($3C,X) 


FD64- JSR $SC3A6 


FD75- JSR $CCED 


us muse 
FD7C- JSR $CCID 
FD7F- HEX EA, EA 
FD81- HEX EA,EA, EA FF1F- JSR $FCBA 
FF22- LDY #$535 
FF24- BCC SFF16 


FD89- BNE SFD4D FF26- JSR $FCEC 


FF29- CMP $2E .…. 


FDFO- BIT $067B 
FF2B- BEQ SFF3A 
FDF3- JMP $SFBB4 


Pre 5 vs FF78- LDY 4517 
FDF8- mm 

FDF9- ... se FF7D- CMP SFFCC, Y 
FDFC- . a 

SOED= …. 2. FFAD- LDA $0200, Y 
FDFF- . FFBO- INY 


FFB1- EOR #$B0 
FFB3- CMP #$0A 
FFB5- BCC $FF8A 
FFB7- ADC 4588 
FFB9- CMP #$FA 
FFBB- BCS $FF8A 
FFBD- RTS 

FFCI- LDA $FFE3,Y 


FES9F- BNE $FEA7 
FEA1- CPY #$1B 
FEA3- BEQ SFEDE 
FEAS- BRA $FEC2 
FEA7- ORA #$C0 
FEA9- LDY #$00 
FEAB- STY $00,X 
FEAD- STA $01,X 
FEAF- RTS 


FFCC- HEX BC,B2,BE ... ..,..,.. 


FEC2- DEA 
FEC3- STA $07FB 


FFCF- HEX B2,EF,C4 


FEC6- LDA #$F7 
FEC8- BRA SFECE 


FFEl- HEX C6, 99, B2 


FECD- RTS . 

FECE- STA 50678 FFE7- HEX 35,8C,C4 ... ..,..,.. 
FEDI- STA $CO0E FFEA- HEX 96,AF,17 ... ..,..,.. 
FED4- TSB $04F8 FFED- HEX 17,2B,1F ... ..,..,.. 


FED7- PHX 

FED8- PHY FFF3- HEX CC,BS 
FED9- JSR $CDCD FFF5- HEX FC,17 
FEDC- PLY FFF7- HEX 17,F5 
FEDD- PLX FFF9- HEX 03 


FFFE- HEX 40,FA 


FEDE- LDA #$FD 
FEEO- BRA $FEAB 


PLE 
sur l'Apple IlIc 


Yvan Koenig 


5 YK = PEEK (175) + 256 
* PEEK (176) - 1196 
6 IF PEEK (64448) = O0 
THEN POKE YK, 170 : 

POKE YK + 4, 254 

7 IF PEEK (64448) = 224 
THEN POKE YK, 164 : 
POKE YK + 4, 254 


| 


FF1B- EOR $2E .… 
FFID- STA $2E … 

















FFD2- HEX B2,A9,BB ... ..,..,.. 
FFDS- HEX A6,A4,06 ... ..,..,.. 
FFD8- HEX 95,07,02 ... . 
FFDB- HEX 05,F0,00 ... . 
FFDE- HEX EB,93,A7 ... .. 


FFE4- HEX C9,BE,C1 ... ..,..,.. 


FFFO- HEX 83,7F,5D ... ..,..,.. 


FEE2- LOA 542 FSEZ- PHY 
FEE4- CMP ($X),Y FEE3- JSR $CC9D 
FEE6- BNE $FEEB FEE6- DEY 


FEE8- JSR SFD92 
FEEB- JSR $FCBA 


FEE7- BRA $SFEBE 
FEE9- LDA #$01 


FEBE- BCC $FED7 FEEB- DEA 
FEEC- PHY 
FEED- TAY 
FEFO- RTS FEEE- JSR $SCCAD 
FEF1- LDY #$0D FEF1- PLY 
FEFJ- JSR $FBB4 FEF2- LDA $057B 
FEFS5- ... 
FEFD- STA $C007 FEFD- RTS 


FFO0- JSR $CSD1 
FFO3- STA $C006 
FFO6- BEQ SFF3A 
FFOB- BNE $FF2D 
FFOA- Apple //e 


FEFE- HEX 12,14,1A 
FFO1- HEX 1C, 32, 34 
FFO4- HEX 3A, 3C, 52 
FFO7- HEX SA, 64, 72 
FFOA- HEX 74, 7A, 7C 
FFOD- HEX 89, 92 

FFOF- HEX 9C,9E 

FF11- HEX B2,D2,F2 
FF14- HEX FC, 38 

FF16- HEX FB,37,FB 


FF13- JSR $FCFD 
FF16- CMP #$A0 
FF18- BEQ $FF13 
FFLA- RTS 

FF1B- BCS $FF8A 
FF1D- CMP #$A0 
FF1F- BNE SFF49 
FF21- LDA $0200,Y 
FF24- LDY #507 
FF26- CMP #$8D 
FF28- BEQ $FFA7 
FF2A- INY 
FF2B- BEQ $FF63 


FF19- HEX 39,21 
FF1B- KEX 36,21 
FF1D- HEX 3A,F8 
FF1F- HEX FA, 3B, FA 
FF22- HEX F9,22 
FF24- HEX 21,3C 
FF26- REX FA, FA, 30 
FF29- HEX 3E,3F 


FF2B- HEX FC, 00 


FF78- LDY #$13 


FF7D- CMP $FFCD,Y 


FFAD- JSR S$SFCFD 


FFB1- JSR $C399 
FFB4- EOR #$B0 
FFB6- CMP 450A 
FFB8- BCC $FF8A 
FFBA- BRA $FFF3 
FFBC- HEX FF,41 ?? 


nu. sun. FFCI1- LDA $FFEO,Y 
FFCC- HEX EA, EC, 82 
FFCF- HEX BE,EF,C4 
FFD2- HEX EC,A9,BB FFU2- HEX A9, 8B,A6 
… ss. FFDS- HEX A4,06, 95 
. FFD8- HEX 07,02, 05 
FFDB- HEX 00, 93,A7 
FFDE- HEX C6, 99, 82 
so. sopsesee FFEl- HEX C9, BE, 35 
FFE4- HEX C9,BE,FO FFE4- HEX 8C,96,AF 
FFE7- HEX 35,8C,D6 FFE7- HEX 17,17,2B 
FFEA- HEX 1F,83,7F 
FFED- HEX 5D, B5, 17 
FFFO- HEX 17,F5,03 
FFF3- ADC 4588 
FFFS- CNP #45FA 
FFF7- BCS SFF8A 
FFF9- RTS 


FFFE- HEX 03,C8 





La ligne 5 détermine l'adresse du 
patch. La ligne 6 s'exécute si on 
se trouve effectivement sur un Ilc. 
La ligne 7 est d'un usage plus 
personnel : j'ai modifié la ROM 
du kit de transformation Ile en Ilc 
afin de bénéficier du mini- 
assembleur, d'un désassembleur 
qui connaît les nouveaux codes du 
65C02 et de la basse résolution 80 
colonnes ; tout cela au prix de la 
perte de l'auto-test. Les lecteurs 
peuvent me contacter à ce sujet à 
l'adresse suivante : 


Yvan Koenig - 4, rue du Stade 
06220 Vallauris 
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ette routine, en langa- 

ge machine, est desti- 

née à être intégrée 

dans un programme 
principal (en Basic) afin de faire 
défiler un texte sur l'écran, dans 
des conditions peu courantes. 
Une chaîne alphanumérique (de 
255 caractères au maximum) étant 
définie par le programme Basic, 
cette routine transforme les 
caractères de la chaîne en lettres 
géantes (1 caractère = 16 lignes 
de 12 colonnes) dans la page 
graphique haute résolution 1. 
Cette visualisation s'accompagne 
d'un défilement de tous les 
caractères, depuis le premier 
caractère apparaissant à droite de 
l'écran jusqu'au dernier dispa- 
raissant à gauche. 


Utilisation dans un 
programme Basic 


Précautions 


Pour éviter tout conflit de mé- 
moire entre le Basic, la page 
graphique haute résolution 1 et la 
routine en langage machine, il est 
souhaitable de charger le Basic 
(par exemple) au-dessus de la 
page graphique : c'est-à-dire à 
partir de 16384 ($4000). Sous 
DOS 3.3, cela laisse environ 21 
Ko de libre pour le Basic et ses 
variables. On peut obtenir ce 
résultat de deux façons : 


+ il faut entrer au clavier 
POKE 103,1 
POKE 104,64 
POKE 16384,0 puis RUNer le 
programme Basic ; 


* ou alors, il faut écrire un petit 
programme Basic qui lancera le 
programme Basic principal. On 
peut prendre comme exemple 
le programme de démonstra- 
tion DEFILE.DEMO.LANCE 
qui lance le programme princi- 





Pom's n° 21 


ny 


pal DEFILE.DEMO.PROG. Il 
suffit de le reproduire en 
mettant le nom de son propre 
programme Basic à la ligne 
100. 


Mode d'emploi 


Le programme Basic devra, dès 
le début, contenir la ligne 
suivante (les numéros de lignes 
sont donnés à titre indicatif) : 


100 PRINT CHR$(4); "BLOAD 
PARAMETRES+DEFILE.OBJ0" 


L'objet de cette ligne est de 
charger en mémoire la routine en 
langage machine. 


Le défilement du texte se faisant 
en page graphique haute résolu- 
tion 1, il peut être intéressant 
d'afficher un dessin (fixe) en plus 
du texte qui défile. Il faut alors 
charger en mémoire une page 
graphique déjà existante sur la 
disquette (pour cela ajoutez la 
ligne suivante) : 

200 PRINT CHR$(4); "BLOAD 
nom page graphique, A8192" 

Il est aussi possible de réaliser le 
dessin à l'aide des instructions 
graphiques du Basic (HPLOT, 
etC:51): 


Il faut ensuite régler la tabulation 
verticale de la phrase qui va 
défiler : la page haute résolution 
contient 192 lignes (numérotées 
de O à 191), les caractères 
utilisent 16 lignes. Il faut ajouter : 


210 POKE 251,V 
avec V compris entre 0 (haut de 
l'écran) et 176 (bas de l'écran). 


La chaîne alphanumérique qui va 
défiler doit être mise dans la 
variable IP$ : 


220 IP$="...phrase..." 
ou 
220 INPUT IP$ 


ne Mt 


Patrick Quettier 


Tous les caractères de code 
ASCII 32 à 127 sont acceptés : 
cela correspond au jeu de 96 
caractères de l'Apple //e (ou //c) 
en mode AZERTY. 

Si la page graphique n'est pas 
encore affichée à l'écran, il faut la 
commuter : plusieurs méthodes 
sont possibles, en voici une qui 
n'efface pas le contenu de la page 
et l'affiche dans son intégralité 
(192 lignes). 


230 POKE 49239,0:POKE 492 
36,0:POKE 49234,0:POKE 492 
32,0 

Le lancement de la routine se fait 
par : 

240 CALL 4736 


Cette instruction fait défiler la 
chaîne IP$ une seule fois, mais le 
programme Basic peut la renou- 
veler à plusieurs reprises (la tabu- 
lation et la chaîne IP$ ne sont pas 
modifiées). 


En résumé 


Voici, comme exemple, un (mini) 
programme qui utilise la routine : 


100 PRINT CHR$(4); "BLOAD 
PARAMETRES+DEFILE. 
OBJ0" 

200 PRINT CHR$(4);"BLOAD 
DEFILE DEMO.PIC,A81 

D"! 

210 POKE 251,160 

220 INPUT IP$ 

230 POKE 49239,0:POKE 
49236,0:POKE 49234,0: 
POKE 49232,0 

240 CALL 4736 


Modifications possibles 


Il est possible de modifier la 
vitesse de défilement en ajoutant : 
235 POKE 4960,Y: POKE 4962, 


60 


X avec X et Y compris entre 1 et 
255. Actuellement, Y=15 et X= 
255. On obtient aussi de bons 
résultats avec Y=4 et X=1. Cela 
revient à modifier les lignes 187 
et 188 du fichier source DEFILE. 


ND.L.R. : la vitesse diminue 
avec X (poids faible) et Y (poids 
fort); (noter que 0-256). 

Il est possible de modifier le 
fichier PARAMETRES+DEFILE 
.-OBJO pour obtenir l'affichage 
des caractères en mode inverse. 
Après chargement de ce fichier, il 
faut faire : 


110 FOR T=2432 TO 4735: 
POKE T,255 - PEEK(T):NEXT 


Remarque : les effets de deux 
exécutions successives de cette 
ligne s'annulent. 


On peut aussi choisir de loger la 
routine à une autre adresse. Pour 
cela, il faut assembler le fichier 
DEFILE après avoir mis à la ligne 
18 la nouvelle valeur choisie pour 
DB, puis créer un nouveau fichier 


sur une disquette : 


BLOAD DEFILE.OBJO 
(nouveau) 

BLOAD PARAMETRES,AX 
avec X=DB-2688 

BSAVE PARAMETRES+ 
DEFILE.OBJO, AX, L2922 


Détails des 
programmes 


DEFILE est le fichier source en 
assembleur ToolKit. 


DEFILE.OBJO est le fichier objet 
de DEFILE. 

adresse de début : 4736 ($1280) 
adresse de fin : 4975 ($136F) 
longueur : 240 octets 
PARAMETRES est le bloc de 
paramètres utilisé par DEFILE. 
OBJO. 

adresse de début : 2048 ($0800) 
adresse de fin : 4735 ($127F) 
longueur : 2688 octets 
PARAMETRES+DEFILE.OBJO 
réunit les 2 fichiers précédents. 


adresse de début : 2048 ($0800) 
adresse de fin : 4975 ($136F) 
longueur : 2928 octets 


Remarque : c'est le seul fichier 
qui soit nécessaire pour utiliser la 
routine à partir d'un programme 
Basic (dans les conditions 
standard). 
DEFILE.DEMO.PROG est un 
programme de démonstration en 
Basic (attention, il ne faut pas le 
RUNer directement !). 
DEFILE.DEMO.LANCE est le 
petit programme Basic qu'il faut 
RUNer pour obtenir une 
démonstration. 

SHIFT+ONERR : routines utili- 
sées par le programme de dé- 
monstration. 
DEFILE.DEMO.PIC : page gra- 
phique haute résolution utilisée 
par le programme de démons- 
tration (ne figure pas sur la 


disquette). . 


00: GOTO 90: REM Menu 


Programme 
DEFILE.DEMO.LANCE 


10 REM #**XAXXKXAAAAAXAEEEEEREEEEARARHAXEX EX 


100 


110 
120 


POKE 216,0: PRINT : POP : PRINT D$"P 
R#6": REM Fin - CH3=4 
REM _## # #4 2 4 2 4 2 2 2 6 2 À 


REM Attente clavier 


20 REM * + 130 VTAB 24: PRINT " Appuyer sur une tou 
30 REM * Animation graphique - Démo + che pour continuer";: VTAB 2: CALL B 
40 REM * ” E$: POKE KK3%,0: WAIT KE%,128: HOME : 
50 REM * Lancement * RATES 
60 REM * " 140 REM **XXAXAXXXAXAAAAXAXAAAAERAEAXE AE 
70 REM *X*X*XAAAAEAEA AE ARE REA ÉEEREÉEE AAA 150 REM Menu (CH$=1 à 4) 

160 HOME : HTAB 9: INVERSE : PRINT LEFT 


80 TEXT : HOME 
90 POKE 103,1: POKE 104,64: POKE 16384,0 


$ (T$,23): HTAB 9: PRINT "*" SPC( 21 


100 PRINT CHRS (4);"RUN DEFILE.DEMO.PRO J"#°: HTAB 9: PRINT "* ANIMATION GRA 
ss PHIQUE *" 
170 HTAB 9: PRINT "*" SPC( 21)"*": HTAB 
9: PRINT LEFTS (T$,23): NORMAL 
Pr ogr. amme 180#VTAB 10: PRINT T$: PRINT " 1 - Démon 
DEFILE.DEMO.PROG stration": PRINT : PRINT " 2 - Démon 
stration (bis)": PRINT : PRINT " 3 - 
Mode d'emploi" 
10 REM HRHARAREREREÉHRERAHAHRRRÉRARHARHARXÉXH 190 PRINT : PRINT 4 = Fin": PRINT : PR 
20 REM * dj INT T$: VTAB 24: PRINT SPC( 8)"Appu 
30 REM * Animation graphique - Démo * yer sur 1, 2, 3 ou 4";: CALL BE#: PO 
40 REM * * KE KK3, 0 
50 REM *Patrick QUETTIER - 76190 Yvetot* 200 WAIT KE3%,128: POKE KK3,0:CH3 = PEEK 
60 REM * jé (KE3) - 48: ON (CH3 < 1 OR CH3 > 4) 


70 REM *A#A#XXA## AAA AA EX A A EE AA AAA A AAA À À À À À 
80 GOSUB 230: REM Initialisation 
90 GOSUB 160: ON CH% GOSUB 300,350, 400,1 


| 


210 
220 


GOTO 200: HOME : RETURN 


REM *XXRXHRAXKXARAAXAXAARAARÉAHEEXAÉEX EEE ZE 


REM Initialisation 
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230 
240 


250 


260 


270 
280 
290 
300 


310 


320 


330 
340 
350 


360 


370 


380 
390 
400 


410 


420 


430 


440 


450 








ONERR GOTO 610 

D$ = CHRS (4):BE% = 
— 16368:KE% = - 16384:T$ = 
HAHAHÉAÉAERERARAÉRAAHÉEHAXAAAARERAAKXN LG 
$ = CHRS$ (34) 

PRINT D$"BLOAD PARAMETRES+DEFILE .OBJ 
0": PRINT D$"BLOAD DEFILE.DEMO.PIC,A 
8192": PRINT DS"BLOAD SHIFT+ONERR" 
IF. PEEK (64435) = 234 THEN CALL 76 
8: REM On peut supprimer cette lig 
ne pour un Apple II+ ävec ROM LC 


— 1052:KK$ = 
MAAHAXXX 


RETURN 

REM HÉAAARHEAHEEHAXAERARAAAHEHAREREXXX 
REM Démonstration - CH%=1 

IPS = "": FOR T = 32 TO 127:IP$ = IP 
$ + CHRS$S (T): NEXT 

IPS = "* * Animation Graphique par 


Patrick QUETTIER - Une ligne de 255 
caractères maxi peut défiler comme à 
ctuellement - Voici tous les caractè 
res disponibles: " + IP$ + " %* *" 
POKE 49239,0: POKE 49236,0: POKE 492 
34,0: POKE 49232,0: POKE 251,160: CA 
LL 4736: CALL 4736: POKE 49233,0: RE 
TURN 

REM HAHHRARARARARAHRAARAXRARHAHARAXXX 
REM Démonstration (bis) - CH$=2 

POKE 49239,0: POKE 49236,0: POKE 492 
35,0: POKE 49232,0: VTAB 21: PRINT " 
Introduisez une phrase quelconque:" 
VTAB 22: INPUT "";IPS$: IF IP$ = "" G 
OTO 360 

POKE 251,130: CALL 4736: CALL 4736: 
POKE 49233, 0: RETURN 

REM HAAHARAAAERRRAREAAERAAARARARAXAXX 
REM Mode d'emploi - CH3=3 

PRINT SPC( 14)"Généralités": VTAB 4 
: PRINT "La routine permettant de fa 
ire de l'ani-mation graphique, est d 
estinée à etre incorporée à votre 
programme basic. "; 

PRINT "Pouréviter tout conflit de mé 
moire entre le basic, la page graphi 
que et la routine en langage machin 
e, votre programme" 

PRINT "basic devra etre chargé (par 
exemple) audessus de la page graphiq 
ue haute réso- lution l1:" 


PRINT : PRINT "Au clavier, il faut f 
aire:": PRINT " POKE 103,1:POKE 104 
,; 64:POKE 16384,0 RUN Programme b 
asic” 

PRINT : PRINT "Ou il faut écrire un 


petit programme basic qui lancera 
le programme basic principal:": 

PRINT " 10 POKE 103,1:POKE 104,64:P 

OKE 16384,0 20 PRINT CHRS(4);"GS"RU 

N Programme basic"G$ 

GOSUB 130: PRINT " Initialisation pa 
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460 


470 


480 


490 


500 


510 


520 


530 


540 


550 


560 


570 


580 


590 


600 
610 


620 


r le programme basic": WYAB 7- PRINT 
"Votre programme basic devra compor 
ter, dès le début, une ligne:" 
PRINT : PRINT : PRINT "100 PRINT CÆR 
$(4) ; "GS"BLOAD PARAMETRES #DEFI LE 
.OBJ0"GS$: PRINT 
PRINT : PRINT "Le fichier PARAMETRES 
+DEFILE.OBJO con- tient l'intégrali 
té de la routine gra- phique (=lang 
age machine)": GOSUB 130 
PRINT " Utilisation par le program 
me basic": VTAB 5: PRINT "Commencer 
par charger une page graphiquehaute 
résolution (déjà existante) à pa 
rtir d'une disquette:" 
PRINT : PRINT "200 PRINT CHRS$(4);"G$ 
"BLOAD Page graphique, A8192"G$ 
PRINT : PRINT "On peut aussi réalise 
r un dessin avec les instructions 
graphiques du basic (HPLOT etc... 
} id 


PRINT : PRINT : PRINT "Régler la tab 
ulation verticale de la ligne à f 
aire défiler:": PRINT : PRINT "210 P 


OKE 251,0 (haut écran) à 176 (bas 
écran)": GOSUB 130 

VTAB 3: PRINT "Mettre dans la variab 
le alphanumérique IP$ la phrase que 
l'on veut faire défiler:": PR 
INT : PRINT " 220 IP$="G$"Bonjour" 
G$: PRINT "ou 220 INPUT IPS" 

PRINT : PRINT : PRINT "Commuter la p 
age graphique à l'écran:": PRINT : P 


RINT " 230 POKE 49239,0:POKE 49236 
,0:POKE 49 234,0:POKE 49232, 0" 
PRINT : PRINT : PRINT "Puis lancer 1 
e défilement:": PRINT : PRINT " 24 
0 CALL 4736": GOSUB 130 

PRINT SPC( 15)"En résumé": VTAB 4: 
PRINT "Voici, comme exemple, un (min 


i) program-me qui utilise la routine 

PRINT : PRINT : PRINT 

S$(4) ;"GS"BLOAD PARAMETRES+DEFI 
.OBJO"GS$S: PRINT 

PRINT "200 PRINT CHR$(4);"G$"BLOAD D 

EFILE.DEMO.PIC ,A8192"G$: PRINT : 
PRINT "210 POKE 251,160" 

PRINT : PRINT "220 INPUT IPS": PRINT 
: PRINT "230 POKE 49239,0:POKE 4923 

6,0:POKE 49234 ,0:POKE 49232,0": 

PRINT : PRINT "240 CALL 4736": GOTO 

130 

REM RARARAARALARARREAARAARARARAARAAXX 

REM Traitement de ONERR GOTO 

CALL 843:E = PEEK (222): IF E = 255 
THEN RESUME 

HOME : VTAB 10: PRINT 


“100 PRINT CHR 
LE 


“Erreur de cod 


e "E" à la ligne " PEEK (218) + PEE 
K (219) * 256: END 








Source DEFILE ; die ca 

60 * 

(Assembleur DOS TOOL-KIT) ‘ re paré 

62 STA POINTE 

63 * 

64 LBL14 LDY POINTE *Rentre les LONG car 
ne 65 LDA (ADRIP),Y *de IP$ de POINTE=0 
À RRRRRRÉRRÉRRRRRRRRRRÉRÉRRRÉ 66 AND #127 *à LONG-1 
PAS Ô 67 JSR RENTRE 
4 * ANIMATION GRAPHIQUE * 68 INC POINTE 
2? à 69 LDA POINTE 
6 * Patrick QUETTIER # 70 CMP LONG 
Ts 76190 Yvetot * 71 BNE LBL14 
8 * % 72 * 

9 RRRRRRRÉRRRRRRRÉRRÉRÉRÉRRÉ 73 LDA #24 *POINTE=2 4 espaces 
10 * 74 STA POINTE *pour finir la ligne 
11 *Début: 4736 $12.80 75 LBL15 LDA #32 
12 *Fin: 4975 $13.6F 76 JSR RENTRE 
13 *Longueur: 240 $00.F0 77 DEC POINTE 
12% | 78 BNE LBL15 
15 *AAAAMAEA AAA AAA AÉ ER OA A ARR À À À À 79 RTS *FIN retour basic 
16 *Variables utilisées par le programme 80 * 

17 * 81 RHAHRRRÉRAÉRÉARRÉARRRÉRÉARRARRRÉRRÉRÉRÉRARÉRÉÉRÉ EX 
18 DB EQU 4736 *Assemblé à cette adresse 82 *Rentre le car de code ASCII À, décale de 12 
19 HAUT EQU 251 *1-Tab. vert. haut texte 83 *colonnes vers la gauche 

20 HAUT16 EQU 253 *1-HAUTI6=HAUT+16 g4 * 

21 HGR EQU 254 *2-Adrler octet ligne HGR 85 RENTRE CMP #32 *N'affiche pas un car 
22 OCTETI EQU 252 *1-Partie haute col carac 86 BCC LBL16 *de controle (<32) 

23 OCTET2 EQU 250 *1]-Partie basse col carac 87 SEC *ASCII=A-32 

24 CARAC EQU 249 *1-Compteur 12 col carac 88 SBC #32 

25 ASCII EQU 235 *2-Adr définition carac 89 STA ASCII 

26 ASCII12 EQU 237 *2-ASCII12=ASCII+12 90 * 

27 LOMEM EQU 105 *2-Début zone données num 91 LDA #0 *ASCII=24*ASCII 

28 LONG EQU 239 *1l-Longu de la chaine IP$ 92 LDX #8 

29 POINTE EQU 215 *1-Compteur carac IPS 93 LSR ASCII 

30 ADRIP EQU 206 *2-Adressage ind pour IPS 94 LBL8 BCC LBL9 

31 ADRESSE EQU DB-2688 *Bloc de paramètres 95 CLC 

32 * 96 ADC #24 

33 RARARARRRRRRRRRARRRRRRRRRÉRÉRRRRÉRRÉRRÉRRRRÉRÉRRÉÉR 97 LBL9 ROR A 

34 ORG DB *Adresse d'assemblage 98 ROR ASCII 

35 * 99 DEX 

36 RRARRRRRARRRRRRARRRRÉRRRRRÉRRÉARRRRÉRRÉRRARÉRÉARRRRÉ 100 BNE LBL8 

37 *Arrivée du Basic après réglage HAUT et IPS$ 101 STA ASCII+I 

38 * 102 * 

39 LDA HAUT *HAUTI6=HAUT+16 103 LDA ASCII *ASC=ASC+ADRESSE+384 
40 CMP  #177 104 CLC *adr ler octet de la | 
41 BCC  TOTO 105 ADC  #>ADRESSE+384 

42 JMP $E199 *Illegal quantity er 106 STA ASCII *"matrice" du car 

43 TOTO ADC #16 107 LDA ASCII+1 

44 STA  HAUTI6 108 ADC  #<ADRESSE+384 

4578 109 STA ASCII+1 

46 JSR CHERCHE 110 * 

47 LDY #2 *LONG=longueur IP$ 111 STA ASCII12+1 *ASCIII12=ASCII+12 

48 LDA (ADRIP),Y 122 LDA ASCII 

49 STA LONG 213 CLC 

50 BNE LBL13 114 ADC #12 

51 RTS *FIN retour basic 115 STA ASCII12 

52 * 116 BCC  LBL4 

53 LBLI3  INY 117 INC ASCII12+1 

54 LDA  (ADRIP),Y 118 * 

35 TAX 119 LBL4  LDA #0 *CARAC=0 (comp des 12 
56 INY 120 STA CARAC *colonnes du car) 

57 LDA (ADRIP),Y 121 LBL? LDY CARAC *octet haut colonne 
58 STA  ADRIP+1 122 LDA (ASCII),Y 
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62 


RE 





123 STA OCTET1 161 *Fait défiler 16 li (HAUT à HAUTI6-1), d'une 
124 LDA (ASCII12),Y 162 *colonne vers la gauche 

125 STA OCTET2 *et l'octet bas 163 * 

126 JSR DROIGAU *Défil1 col à gauche 164 DROIGAU LDX HAUT *X=tab verticale=HAUT 
127 INC CARAC *CARAC=CARAC+1 165 CLV *Drapeau V=0 

128 LDA CARAC *continue pour 12 col 166 * 

129 CMP #12 *du caractère 167 LBLO LDA ADRESSE,X *HGR=adr oct 1 en 0,Xx 
130 BNE LBL7 168 STA HGR+1 

131 LBLI16 RTS *Fin 169 LDA ADRESSE+192,X 

132 # 170 STA HGR 

133 *AXAAAEX AA REA AAA AÉ AAA HEAR EE EN À À À À À À À À 171 * 

134 *Cherche la variable IP$ 172 ROR OCTET2 *car à entrer en 

135 * 173 ROR OCTETI 

136 CHERCHE LDA LOMEM *On commence à LOMEM 174 LDY #39 *Y=tab horiz=39 à 0 
137 STA ADRIP 175 * 5 

138 LDA  LOMEM+1 176 LBL1 LDA (HGR),Y *A=contenu oct en Y,Xx 
139 STA ADRIP+1 177 BCC LBL2 *Met retenue en MSB À 
140 * 178 ORA #128 *Cas 1 

141 LBL10 LDY #0 179 BVC LBL3 *Toujours pris 

142 LDA #73 *ler octet:"I" ? 180 LBL2 AND #127 *Cas 0 

143 CMP  (ADRIP),Y 181 LBL3 LSR A *Décalage droite 

144 BNE LBLI11 182 STA (HGR),Y *A dans octet (Y,X) 
145 INY 183 DEY *Y=Y-1 

146 LDA #208 *Oui-2ème octet:"P" ? 184 BPL LBLI1 *meme ligne Y=39 à 0 
147 CMP  (ADRIP),Y 185 INX *X=X+1 

148 BEQ LBL12 186 CPX HAUTI16 *pour lignes X=HAUT 
149 * 187 BNE LBLO *à HAUT16-1 

150 LBL11 CLC *Non, ajoute 7 188 * 

Tel LDA ADRIP 189 LDY #15 *Temporisation 

152 ADC #7 190 LBL6 LDX #S$SFF 

153 STA ADRIP 191 LBLS5 DEX 

154 BCC LBL10 192 BNE LBLS5 

355 INC ADRIP+1 193 DEY 

156 JUMP LBL10 194 BNE LBL6 

To7 * 195 RTS *Fin 

158 LBL12 RATS *Résultat dans ADRIP 196 * 

159 * 197 HRARARRARÉRRAARAAAAAAAAAARRARAARARAARAAAÉRAAR EX 


160 HARARARRARARRARAARÉRRÉRARARÉAAARAAAAARARAR EEE À 





Réca itulation 08E0- 00 00 00 00 00 00 00 00 09E8- CC 8C 00 00 00 00 OC OC  GQAFO- OF 03 00 00 00 00 30 3C 
] 0] 08E8- 80 80 80 80 80 80 80 80 09F0- OC 3F 3F 0C OF 07 00 00 CAF8- 0F 03 00 00 00 00 00 00 
PARAMETRES 08F0- 00 00 00 00 00 00 00 00 09F8- 00 0E 1F 1B 1F CE F0 3C 0B00- 00 FC FE 07 03 C3 F3 3F 

08F8- 80 80 80 80 80 80 80 80 0A00- 0F 03 00 00 00 00 30 3C 0B08- OF FE FC 00 00 OF 1F 3C 

0900- 28 28 28 28 28 28 28 28 0A08- 0F 03 1C 3E 36 3E 1C 00 0B10- 3F 33 30 30 38 1F OF 00 
0800- 20 24 28 2C 30 34 38 3c 0908- A8 A8 A8 A8 A8 A8 A8 A8  OA10- 00 00 SE FF E3 F3 3F LE  OB18- 00 00 00 06 06 FF FF 00 
0808- 20 24 28 2c 30 34 38 3c 0910- 28 28 28 28 28 28 28 28 0A18- 00 00 00 00 00 1F 3F 31 0B20- 00 00 00 00 00 00 00 30 
0810- 21 25 29 2D 31 35 39 3D 0918- A8 A8 A8 A8 A8 A8 A8 A8  OA20- 30 31 1B 0E 1C 3E 33 00  OB28- 30 3F 3F 30 30 00 00 00 
0818- 21 25 29 2D 31 35 39 3D 0920- 28 28 28 28 28 28 28 28  0A28- 00 00 00 00 26 3F 1F 0E  OB30- 00 1C 1E 07 03 03 83 C3 
0820- 22 26 2A 2E 32 36 3A 3E 0928- A8 A8 A8 A8 A8 A8 A8 A8 0A30- 00 00 00 00 00 00 00 00 0838- E7 7E 3C 00 00 30 38 3C 
0828- 22 26 2A 2E 32 36 3A 3E 0930- 28 28 28 28 28 28 28 28 0A38- 00 00 00 00 00 00 00 00  0B40- 3E 37 33 31 30 30 30 00 
0830- 23 27 2B 2F 33 37 3B 3F 0938- A8 A8 A8 A8 A8 A8 A8 A8 0A40- 00 00 00 00 FC FE 03 01 0B48- 00 OC 0E 07 C3 C3 C3 C3 
0838- 23 27 2B 2F 33 37 3B 3F 0940- 50 50 50 50 50 50 50 50 0A48- 00 00 00 00 00 00 00 00  B50- E7 FE 3C 00 00 OC 1C 38 
0840- 20 24 28 2C 30 34 38 3c 0948- DO DO DO DO DO DO DO DO 0A50- 0F 1F 30 20 00 00 00 00 0B58- 30 30 30 30 39 1F OF 00 
0848- 20 24 28 2C 30 34 38 3c 0950- 50 50 50 50 50 50 50 50 0A58- 00 00 00 00 01 03 FE FC  OB60- 00 CO EO 70 38 IC 0E FF 
0850- 21 25 29 2D 31 35 39 3D 0958- DO DO DO DO DO DO DO DO 0A60- 00 00 00 00 00 00 00 00 0B68- FF 00 00 00 00 03 03 03 
0858- 21 25 29 2D 31 35 39 3D 0960- 50 50 50 50 50 50 50 50 0A68- 20 30 1F OF 00 00 00 00 0B70- 03 03 03 3F 3F 03 03 00 
0860- 22 26 2A 2E 32 36 3A 3E 0968- DO DO DO DO DO DO DO DO 0A70- 00 10 30 60 CO F8 F8 CO 0B78- 00 7F 7F 63 63 63 63 63 
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OBF8- 00 00 00 00 00 00 00 00 0E10- 01 01 01 O1 01 00 00 00 1028- 00 CO EO 70 30 30 30 30 1240- 70 EO CO 00 00 OF 1F 3B 
0C00- 38 38 38 00 00 00 00 00 0E18- 00 FC FE 07 03 03 03 03 1030- 70 FO FO 00 00 03 C7 CE 1248- 33 33 33 33 33 33 33 00 
0C08- 00 00 00 00 E0 EO EO 00 O0E20- 07 FE FC 00 O0 OF 1F 38 1038- CC CC CC CC E6 7F 3F 00 1250- 00 00 00 06 06 00 00 06 
0C10- 00 00 00 00 00 00 00 00 0E28- 30 32 36 3E 1C 3F 2F 00 1040- 00 FF FF 60 30 30 30 70 1258- 06 00 00 00 00 00 00 00 
0C18- B8 F8 78 00 00 00 00 00 0E30- 00 FF FF 83 83 83 83 83  1048- EQ CO 00 00 00 3F 3F 00 1260- 00 00 00 00 00 00 00 00 
0C20- 00 00 00 00 80 CO 60 30 0E38- C7 FE 7C 00 00 3F 3F 01 1050- 00 00 00 00 3F 3F 00 00 1268- 00 A8 50 A8 50 A8 50 A8 
0C28- 10 00 00 00 00 00 00 03 0E40- 01 03 07 OF 1D 38 30 00  1058- 00 00 00 00 00 F3 F3 00 1270- 50 A8 00 00 00 2A 15 2A 
0C30- 07 0C 18 30 20 00 00 00 0E48- 00 3C 7E E7 C3 C3 C3 C3 1060- 00 00 00 00 00 00 00 00 1278- 15 2A 15 2A 15 2A 00 00 
0C38- 00 00 CO C0 CO CO CO CO 0E50- C7 8E OC 00 00 OC 1C 38 1068- 00 3F 3F 00 00 00 00 00 

0C40- CO CO 00 00 00 00 OC OC 0E58- 30 30 30 30 39 1F OF 00 1070- 00 00 00 00 30 30 F3 F3 

0C48- OC OC OC OC OC OC 00 00 0E60- 00 03 03 03 03 FF FF 03 1078- 00 00 00 00 00 00 00 00 

0C50- 00 00 00 10 30 60 CO 80 0E68- 03 03 03 00 00 00 00 00 1080- C0 EO 7F 3F 00 00 00 00 

0C58- 00 00 00 00 00 00 00 20 0E70- 00 3F 3F 00 00 00 00 00 1088- 00 00 FF FF 00 80 CO 60 

0C60- 30 18 OC 07 03 00 00 00 0E78- 00 FF FF 00 00 00 00 00 1090- 30 10 00 00 00 00 3F 3F . . 

O0C68- 00 OC 0E 07 03 83 C3 C3 0E80- 00 FF FF 00 00 OF 1F 38  1098- 03 07 OC 18 30 20 00 00 Récapitulation 

0C70- E7 7E 3C 00 00 00 00 00 0E88- 30 30 30 30 38 1F OF 00 10A0- 00 00 00 00 00 FF FF 00 

0C78- 00 33 33 00 00 00 00 00 0E90- 00 3F FF CO 00 00 00 00 10A8- 00 00 00 00 00 00 00 00 DEFILE.OBJO 
0C80- 00 CO EO 70 31 33 36 34 0E98- CO FF 3F 00 00 00 OÙ 03 10B0- 00 3F 3F 00 00 00 00 00 

0C88- FO FO 00 00 00 OF 1F 38 OEAO- OF 3C 3C OF 03 00 O0 00 1088- 00 FO FO 20 30 F0 E0 30  1280- A5 FB C9 B1l 90 03 4C 99 
0C90- 30 30 30 18 3F 3F 00 00 OEA8- 00 FF FF 00 00 00 00 00 10C0- 30 FO EO 00 00 3F 3F 00 1288- El 69 10 85 FD 20 17 13 
0C98- 00 FO F8 1C 0E 07 07 0E OEBO- 00 FF FF 00 00 03 OF 3C 10C8- 00 3F 3F 00 00 3F 3F 00 1290- A0 02 B1 CE 85 EF DO O1 
OCAO- 1C F8 FO 00 00 3F 3F 03 OEB8- 30 1E 1E 30 3C OF 03 00 10D0- 00 FO FO 60 30 30 30 70 1298- 60 C8 B1 CE AA C8 B1 CE 
OCA8- 03 03 03 03 03 3F 3F 00 OECO- 00 OF 1F 30 EO CO CO EO 10D8- E0 CO 00 00 00 3F 3F 00 12A0- 85 CF 86 CE A9 00 85 D7 
OCBO- 00 FF FF C3 C3 C3 C3 C3 O0EC8- 30 1F OF 00 00 3C 3E 03 10E0- 00 00 00 00 3F 3F 00 00 12A8- A4 D7 B1l CE 29 7F 20 C7 
OCB8- E? BE 1C 00 00 3F 3F 30 O0EDO- 01 00 00 O1 03 3E 3C 00 10E8- 00 CO EO 70 30 30 30 70 12B0- 12 E6 D7 A5 D7 C5 EF DO 
0CCO- 30 30 30 30 39 1F OF 00 OED8- 00 1F 3F 70 E0 CO CO EO 10F0- E0 CO 00 00 00 OF 1F 38 12B8- EF A9 18 85 D7 A9 20 20 
OCC8- 00 FC FE 07 03 03 03 03 O0EEO- 70 3F 1F 00 00 00 00 00 10F8- 30 30 30 38 1F OF 00 00 12C0- C7 12 C6 D7 DO F7 60 C9 
OCDO- 07 0E OC 00 00 OF 1F 38 0EE8- 00 3F 3F 00 00 00 00 00 1100- 00 FO FO 60 30 30 30 70 12C8- 20 90 4B 38 E9 20 85 EB 
OCD8- 30 30 30 30 38 1C 0c 00 0EFO0- 00 03 03 03 83 C3 E3 73 1108- E0 CO 00 00 00 FF FF 0C  12D0- A9 00 A2 08 46 EB 90 03 
OCEO- 00 FF FF 03 03 03 03 03 O0EF8- 3B 1F OF 00 00 3C 3E 3F 1110- 18 18 18 1C OF 07 00 00 12D8- 18 69 18 6A 66 EB CA DO 
OCE8- 07 FE FC 00 00 3F 3F 30 OF00- 33 31 30 30 30 30 30 00 1118- 00 CO EO 70 30 30 30 60 12E0- F5 85 EC A5 EB 18 69 80 
OCFO- 30 30 30 30 38 1F OF 00 O0F08- 00 00 00 78 FC 84 84 FC 1120- FO FO 00 00 00 07 OF 1C  12E8- 85 EB A5 EC 69 09 85 EC 
OCF8- 00 FF FF C3 C3 C3 C3 c3 O0F10- 78 00 00 00 00 00 00 00 1128- 18 18 18 OC FF FF 00 00 12F0- 85 EE A5 EB 18 69 OC 85 
0D00- C3 C3 03 00 00 3F 3F 30 0F18- 00 00 00 00 00 00 00 00 1130- 00 00 FO FO 60 30 30 70 12F8- ED 90 02 E6 EE A9 00 85 
0D08- 30 30 30 30 30 30 30 00 O0F20- 00 CO E0 70 30 30 30 30 1138- 60 00 00 00 00 00 3F 3F  1300- F9 A4 F9 Bl EB 85 FC B1 
0D10- 00 FF FF C3 C3 C3 C3 C3 0F28- 70 60 40 00 00 OF 1F 38 1140- 00 00 00 00 00 00 00 00 1308- ED 85 FA 20 3D 13 E6 F9 
0D18- C3 C3 03 00 00 3F 3F 00 0F30- FO FO 30 30 38 18 08 00 1148- 00 00 EO FO 30 30 30 30 1310- A5 F9 C9 OC DO EB 60 A5 
0D20- 00 00 00 00 00 00.00 00 0F38- 00 00 00 DC FE 33 21 El 1150- 30 30 00 00 00 00 31 33  1318- 69 85 CE A5 6A 85 CF A0 
0D28- 00 FC FE 07 03 03 83 83 O0F40- C7 06 00 00 00 00 18 38 1158- 33 33 33 33 3F 1E 00 00 1320- 00 A9 49 D1 CE DO 07 C8 
0D30- 87 8E 8C 00 00 OF 1F 38 O0F48- 21 21 33 1F 0E 00 00 00 1160- 00 00 30 30 FE FE 30 30 1328- A9 DO D1 CE FO 0E 18 A5 
0D38- 30 30 31 31 31 3F 3F 00 0F50- 00 00 20 30 18 OC OC 18 1168- 30 00 00 00 00 00 00 00 1330- CE 69 07 85 CE 90 E8 E6 
0D40- 00 FF FF CO CO CO CO co 0F58- 30 20 00 00 00 00 00 00 1170- 1F 3F 30 30 30 00 00 00 1338- CF 4C 1F 13 60 A6 FB B8 
0D48- CO FF FF 00 00 3F 3F 00 0F60- 00 00 00 00 00 00 00 00 1178- 00 FO FO 00 00 00 00 00 1340- BD 00 08 85 FF BD CO 08 
0D50- 00 00 00 00 00 3F 3F 00 0F68- 00 00 00 00 00 00 00 00 1180- FO FO 00 00 00 OF 1F 38 1348- 85 FE 66 FA 66 FC AO 27 
0D58- 00 00 00 00 03 FF FF 03 0F70- 00 00 00 00 18 18 18 18  j1188- 30 30 30 18 3F 3F 00 00 1350- B1 FE 90 04 09 80 50 02 
0D60- 00 00 00 00 00 00 00 00 0F78- 18 18 18 18 18 18 18 18 1190- 00 30 FO CO 00 00 00 00 1358- 29 7F 4A 91 FE 88 10 FO 
0D68- 30 3F 3F 30 00 00 00 90 0F80- 00 00 00 00 0E 1F 3F 26  1198- CO FO 30 00 00 00 00 03 1360- E8 E4 FD DO DB A0 OF A2 
0D70- 00 00 00 03 03 03 03 FF  0F88- 00 00 00 00 00 00 00 00 11A0- OF 3C 3C OF 03 00 00 00 1368- FF CA DO FD 88 DO F8 60 
0D78- FF 03 03 00 00 0E 1E 38 0F90- 00 00 00 00 00 00 00 00  11a8- 00 FO FO 00 00 00 00 00 

0D80- 30 30 38 1F OF 00 00 00 0F98- 00 CO EO 70 30 30 30 30  11B0- 00 FO FO 00 00 OF 1F 38 

0D88- 00 FF FF E0 FO B8 1C 0E OFAO- FO FO 00 00 00 OF 1F 38 11B8- 18 0E 0E 18 38 1F OF 00 

0D90- 07 03 00 00 00 3F 3F 00 O0FA8- 30 30 30 18 3F 3F 00 00 11C0- 00 30 70 EO CO 80 80 CO 

0D98- 01 03 07 0E 1C 38 30 00 OFBO- 00 FF FF 60 30 30 30 30  11c8- E0 70 30 00 00 30 38 ic Récapitulation 


ODAO- 00 00 FF FF 00 00 00 00 OFB8- 70 E0 CO 00 00 3F 3F 18 11D0- OF 07 07 OF 1C 38 30 00 
ODA8- 00 00 00 00 00 00 3F 3F  OFCO- 30 30 30 30 38 1F OF 00 11D8- 00 FO F0 00 00 00 00 00 HIFT+ONERR 


ODB0- 30 30 30 30 30 30 00 00 OFC8- 00 CO E0 70 30 30 30 30 11E0- FO FO 00 00 00 C3 C7 CE 

0DB8- 00 FF FF 3C FO CO CO FO  OFDO- 70 60 40 00 00 OF 1F 38 11E8- CC CC CC E6 7F 3F 00 00 0300- A9 OF 85 36 A9 03 85 37 
ODCO- 3C FF FF 00 00 3F 3F 00  OFD8- 30 30 30 30 38 18 08 00 11F0- 00 30 30 30 30 30 BO FO 0308- A9 00 85 48 4C EA 03 8D 
O0DC8- 00 01 01 00 00 3F 3F 00 OFEO0- 00 CO E0 70 30 30 30 30 11F8- 70 30 00 00 00 30 38 3C  0310- 4A 03 08 8A 48 AD 4A 03 
ODDO- 00 FF FF OF 3C FO CO 00 OFE8- 30 FF FF 00 00 OF 1F 38 1200- 36 33 31 30 30 30 00 00 0318- A2 07 DD 3A 03 FO OC CA 
ODD8- 00 FF FF 00 00 3F 3F 00 OFFO- 30 30 30 30 18 3F 3F 00 1208- 00 CO EO 70 34 36 33 31  0320- 10 F8 C9 EO0 90 08 38 E9 
ODEO- 00 00 03 OF 3C 3F 3F 00 OFF8- 00 CO EO 70 30 30 30 30 1210- 70 EO0 CO 00 00 OF 1F 3B 0328- 20 DO 03 BD 42 03 8D 4A 
0DE8- 00 FC FE 07 03 03 03 03 1000- 70 EO CO 00 00 0F 1F 3B 1218- 33 33 33 33 33 33 33 00 0330- 03 68 AA 28 AD 4A 03 4C 
ODFO- 07 FE FC 00 00 OF 1F 38 1008- 33 33 33 33 33 33 33 00 1220- 00 FO F0 01 03 06 04 00 0338- FO FD CO DC EO FB FC FD 
ODF8- 30 30 30 30 38 1F OF 00 1010- 00 00 60 60 FC FE 67 63 1228- FO FO 00 00 00 OF 1F 38 0340- FE FF C1 C3 A1 C5 D5 C5 
0E00- 00 FF FF 83 83 83 83 83 1018- 63 03 00 00 00 00 00 00 1230- 30 30 30 18 3F 3F 00 00 0348- AD A1 00 68 A8 68 A6 DF 
0E08- C7 FE 7C 00 00 3F 3F 01 1020- 3F 3F 00 00 00 00 00 00 1238- 00 CO E0 70 31 33 36 34 0350- 9A 48 98 48 60 


dia tee er ete te el ee a lee nel ire ee ral ee Ne ae ee CRE rerTELe Tr Ce TT E 


Accompagné d'une cinquantaine de pages de documentation, Oisk Manager permet de recréer 
les commandes du Dos, redéfinir l'organisation d'une disquette, grâce à un jeu d'instructions qui 
en fait un langage simple d'accès à la disquette. Il offre également un programme simple d'édition 
à l'aide de commandes évoluées. 4 utilitaires figurent aussi sur la disquette : 

Utili-disque : reconstruction d'une disquette détruite, Vérification, Plan d'occupation 

Ultra-copie : pour un backup particulièrement rapide 

Edicat : Edition du catalogue, classement des fichiers, Titres. 

Multi-disque : pour le classement de tous vos programmes (tri instantané). 


Oisk Manager, le Dos en Kit 


de Dan Steevey 


CS UE DEL NE Se OC NC ES D DR. VOS DES DE UE LEO LE LE D Le 
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Michel Dominique 


our tous ceux qui 
estiment péremptoire 
l'affirmation d'Olivier 
Herz dans son article 
"EXP. (n*SQR (163)) est-il en- 
tier ?" (Pom's 12), selon laquelle 
T est supposé connu, voici un 
petit programme en Applesoft, 
écrit pour calculer ce nombre. 


Pour ce faire, nous utiliserons le 
résultat mathématique suivant : 
T/2=1+(1/3)+(1*2)/(3*5)+...+ 
(n!/1*3...*(2n+1))+.. 
Cette méthode compte parmi les 
plus simples, mais elle permet un 
calcul rapide par ordinateur. 
L'algorithme utilisant la méthode 
de Horner consiste à calculer par 
approximations successives et en 
s'arrêtant au rang n : 
n=2+(1/3)*(2+(2/5))*(2+ 
(3/7))*(2+(4/9))*(2+...*(2+ 
(n/2n+1)) 


Le programme commence par 
déterminer le nombre de termes 
calculés (lignes 30 et 70); 
l'expérience montre qu'il s'agit 
environ des 10/3 du nombre de 
décimales voulu. Puis il effectue 
le calcul dans la courte boucle de 


lignes 100 à 250, ce qui prend, 
eii secondes, un temps équivalent 
au 25ème du carré du nombre de 
décimales. Le reste du 
programme est consacré à 
l'affichage et au stockage des 
décimales sur disque (fichier 
TEXT). 


Remarques 


1) Ce calcul se programme en 
Basic (8 décimales) par : 
PI=0:FOR N=30 TO 1 
STEP-1:PI=PI*N/ (2* 
N+1)+2:NEXT:PRINT 
PI 


2) On peut aussi effectuer le 
calcul avec le Calculateur 
Entier de Jacques Duma 
(Pom's 12), par exemple avec 
100 décimales : 

K = 10100: K=2*K: 
N=333: I=2*N: I=1+ 
1 : P=0 111#: 3#: 
P=PXN: P=P/I: P=P+ 
K: N=N-1: I=I-2 ?P 
Notons que ce calcul prend 
près de 50 mn, contre 6 mn 
30 au programme Basic avec 
le même nombre de 





décimales. 


En effet, le 
Calculateur Entier n'est pas 
plus rapide pour le produit 
d'un grand nombre par un 
petit que pour le produit de 


deux grands nombres, 
contrairement à un programme 
Basic que l'on peut adapter à 
la longueur des nombres. 


3) Le programme ne fonctionne 
correctement que pour un 
calcul avec au moins six 
décimales. 


NDLR : Pour aller plus avant 
dans la connaissance de x, le 
supplément au ‘Petit Archimède' 
n° 64-65 de mai 1980 consacre 
280 pages à une cinquantaine de 
méthodes de calcul et en prime les 
25000 premières décimales pour 
vérifier vos calculs. Cet ouvrage 
est en vente à la librairie du Palais 
de la Découverte à Paris. 
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Programme PI 


REM *AXARXAXAXXXXEAEAAXXX 


0 

1 REM CALCUL DES DECIMALES 

2 REM DE PI 

3 REM MICHEL DOMINIQUE 

4 REM *#### #44 444 #44 444 

5 GOSUB 5000 

10 TEXT : HOME : CLEAR : IN 
PUT "NOMBRE DE DECIMALES 
: ";NDEC$:NDEC = VAL (N 
DEC$): IF NDEC$ = "" THE 
N END 

12 ON NDEC < 10 GOTO 10 

24 REM *#X#X#X#XX REA ARE AEX 

25 REM CALCUL DU NOMBRE 

26 REM DE BOUCLES 


27 REM LES SSSSÉS SSL SES SSSR S: 
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30 VTAB 4: HTAB 14: PRINT 
"PATIENCE...":NMEM = I 
NT (NDEC / 5) + ( INT ( 
NDEC-/' 5° < > NDEC #5) 
):N = (NDEC + 1) * LOG 

(10):S = O:NB = 1 

70 NB = NB +1:S = S + LO 
G (2+1 / NB): IFN > 
= S THEN 70 


80 DIM DEC (NMEM) :DEC(1) = 
100000:NI = DEC(1):NJ = 
NI * 10:AD = 2 * NI 
89 REM *##%%# #0 2% 2 2 2 2 4 
90 REM CALCUL DES DECIMALES 
91 REM **# XX XX XX AXE AA AAA EX 
100 FOR N = NB TO 1 STEP 
- 1: VTAB 10: HTAB 15: 


PRINT NB -N +1;"/"; 
NB:M=0:K=2*N+l 

120 FOR I = 1 TO NMEM:Z = 
DEC(I) + M:DEC(I) = I 
NT (Z / K):M = (Z - DE 
C(I) * K) * NI: NEXT I 

170 M=0 

180 FOR I = NMEM TO 2 STEP 

- 1:DEC(I) = DEC(I) 

* N + M:M = INT (DEC( 
I) / NI):DEC(I) = DEC( 
I) - M * NI: NEXT I 

230 DEC(1) = DEC(1) * N + 
M:M = INT ( INT (1) / 
NJ) :DEC(1) = DEC(1) - 
M * NJ + AD 

260 NEXT N 

270 GOSUB 1000: GOSUB 4000 










































: GOTO 10 INVERSE : VTAB 23: HTA 4160 PRINT D$"CLOSE 


991 REM *AAA#AARAAKAAARARX B 3: INPUT "PRESSEZ <R 4162 PRINT : INPUT "SAUVEGA 
993 REM AFFICHAGE ETURN> POUR CONTINUER" RDE DE SECURITE ? ";HS 
994 REM DES DECIMALES ;KEY$: NORMAL : RETURN 4165 IF H$ < > "O" AND H$ 
996 REM *#**XXXRXRXXAAXAXXXXXX 3991 REM *X*XXAXXXXXXXXXAXXXXX € > "N'" THEN 4162 
1000 HOME : FOR I = 1 TO 3: 3993 REM SAUVEGARDE DES 4167 IF H$ = "O" THEN 4055 
CALL - 1052: NEXT 3994 REM DECIMALES 4170 RETURN 
1010 PRINT TAB( 5);"**#* PI 3996 REM ***X##XXXXXXX HER XX 4991 REM **X*XX*XX4XKXXXXXAXXX 
AVEC ";NDEC;" DECIMAL 4000 PRINT " VOULEZ - VOUS 4993 REM AFFICHAGE DES 
ES ***": POKE 34,3: HO UNE SAUVEGARDE ? ";: G 4994 REM DECIMALES 
ME ET HS 4995 REM DEJA TROUVEES 
1020 C$ = STR$ (DEC(1)):C$ 4010 IF H$ < > "O" AND H$ 4997 REM **X*XXXXXXXXHXAXAAHEX 
= RIGHTS (C$,5) :DEC( < > "N" THEN VTAB 4: 5000 TEXT : HOME : PRINT 
1) = VAL (C$) GOTO 4000 5010 PRINT "VOULEZ-VOUS VOI 
1030 PRINT "3, ";:N = O0:L = 4020 IF H$ = "N" THEN RETU R LES DECIMALES": PRIN 
0 RN T "DEJA TROUVEES "; 
1040 FOR I = 1 TO NMEM - 1 4030 HOME :D$ = CHRS (4) 5020 INPUT R$: IFRS < >" 
1050 IF N = 6 THEN N = 0: P 4040 PRINT " NOUS ALLONS SA O" AND R$ < > "N" THE 
RINT : PRINT SPC( 3); UVER LES DECIMALES DE N 5020 
:L=L+1 * :3 LA 5030 IF R$ = "O" THEN GOSU 
1060 Z$ = STR$ (DEC(I)) 4050 PRINT "CALCULEES SUR D B 6000 
1070 IF LEN (Z$) < 5 THEN ISQUETTE. " 5040 PRINT : PRINT 
Z$ = "O0" + Z$: GOTO 10 4055 PRINT | 5050 RETURN 
70 4060 PRINT "INTRODUISEZ UNE 6000 HOME :D$ = CHRS$S (4) 
1080 PRINT Z$;" ";:N = N + DISQUETTE PUIS PRESSE 6010 PRINT D$S"OPEN PIDEC" 
1 Z" 6020 PRINT D$"READ PIDEC" 
1090 NEXT I 4070 INPUT " "RETURN ‘'.";H$ 6030 INPUT NDEC 
1100 LL = NDEC - 5 * (NMEM 4100 PRINT D$S"OPEN PIDEC": 6040 INPUT NMEM 
- 1): IF NOT LL THEN PRINT D$"DELETEPIDEC" 6045 DIM DEC (NMEM) 
1140 4110 PRINT D$"OPENPIDEC 6050 FOR DEC = 1 TO NMEM 
1110 Z$ = STR$S (DEC(NMEM)) 4130 PRINT D$"WRITEPIDEC 6060 INPUT DEC (DEC) 
1120 IF LEN (2$) < 5 THEN 4125 PRINT NDEC: PRINT NMEM 6070 NEXT 
Z2$ = "O0" + Z$: GOTO 11 4130 FOR DEC = 1 TO NMEM 6080 PRINT D$"CLOSE PIDEC" 
20 4140 PRINT DEC (DEC) 6100 GOSUB 1000 
1130 PRINT LEFTS (Z$,LL) 4150 NEXT 6120 RETURN 






Max : le moniteur étencu 


Jacques Supernant Apple I][+, //e, //c 


Ce moniteur autorise un contrôle de l'exécution des 
routines en langage machine 














Les fichiers 
source sont Sur 
la disquette. 







Un mode Trace et Pas à Pas très évolués et sélectifs sont complétés 
par un accès direct aux registres du 6502 (ou 65C02). 






























La gestion des fenêtres d'écran simplifie le mode trace. Disquette et 
Une routine permet la recherche de suites d'octets. documentation : 
150,00 F TTC 
franco . Bon de 
Un mini-assembleur très souple fait partie de Max. commande 
Une ligne de commande peut devenir une boucle avec l'ordre JUMP page74 
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En 








Alexandre Duback D 1D l 10 r ap hie 


Guide Magnard du tout logi- 
ciel — 1985/1986 — 415 pages 
— 149 FF. 

Dix programmes par page sont 
décrits schématiquement dans des 
cartouches bien présentées, mais 
contenant une information bien 
entendu schématique. À ne pas 
lire si vous cherchez le moindre 
avis sur les programmes propo- 
sés. Le titre est totalement abusif : 
ce "tout logiciel" parvient à 
ignorer AppleWorks, AppleWri- 
ter, Multiplan, … De toute façon, 
avec moins de 200 programmes 
sur Apple II, on ne pourrait même 
pas présenter tous les program- 
mes publiés par Pom's pour ses 
lecteurs depuis le N°1 ! 


dBase II -— Applications de 
Christophe Stehly, Sybex — 268 
pages — 148 FF. 


Le livre a été réalisé en utilisant la 
version 2.4 francisée de dBase II. 
Une première partie illustre les 
possibilités du programme en 
gestion de fichiers, la program- 
mation de dBase II étant couverte 
dans une seconde partie, à l'aide 
d'exemples de gestion variés. Un 
dernier chapitre fort intéressant 
explique comment il faut s'y 
prendre pour bien constituer ses 
fichiers. Ouvrage clair et bien 
présenté. 


La troisième pomme de Jean- 
Louis Gassée, Hachette — 200 
pages — 64 FF. 

Le sous-titre, Micro-informatique 
et Révolution Culturelle, décrit 
mieux le contenu de cet ouvrage 
que nous devons à l'ancien 
directeur d'Apple France, vice- 
président depuis quelque mois 
d'Apple en Californie. Lecture 
indispensable pour comprendre le 
genre de vocation qu'a pu susciter 
l'esprit Apple, et dont nous 
espérons qu'il continuera à en 
susciter … 
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Les écrans du Apple Ile par 
Phil Robinson, Hachette Infor- 
matique — Deux tomes de 26 
pages chacun — 110 FF pièce. 
Traduit de l'anglais. 


I1 fallait oser un tel titre … 
Présentation luxueuse : de la 
couleur, de la mise en page, des 
thèmes couverts chacun en une 
page simple ou double. Bien fait. 
Ceci dit, en 2 fois 64 pages, on ne 
peut en aucun cas être exhaustif. 


Apple Ilc User Guide par 
Gary Phillips et Donald Scellato, 
Brady (Prentice Hall) — 370 pages 
— $20.75. 


Ouvrage couvrant tout ce qui peut 
toucher de près ou de loin les 
utilisateurs du Ilc. Tout d'abord, 
146 pages sur le Ilc lui-même 
dans lesquelles on trouve par 
exemple un chapitre sur l'utili- 
sation du disque System Utilities 
et un chapitre sur DOS et ProDOS 
avec une intéressant comparaison 
instruction par instruction. Ensui- 
te, une cinquantaine de pages de 
guide pour l'acheteur de logiciel, 
et enfin un guide d'achat pour les 
périphériques. Bien réalisé, mais 
à consulter pour voir si c'est bien 
ce que vous recherchez. 


Destination Aventure Apple 
Ile, II+ et Ilc de Delton Horn, 
Editions du PSI — 240 pages — 
140 FF. Traduction. 


La façon dont on programme un 
jeu d'aventure est expliquée en 
détail autour d'un premier jeu. 
C'est clair et détaillé, mais pas 
forcément performant au niveau 
de la programmation. Ainsi, à un 
endroit, on teste la même chaîne 
sur une cinquantaine de valeurs 
possibles, au lieu d'effectuer une 
recherche dichotomique dans une 
table alpha : cela fait en moyenne 
25 comparaisons au lieu de 6 ! 
Trois autres jeux sont listés en fin 
d'ouvrage, accompagnés d'expli- 
cations et d'organigrammes. 


Muiltiplan sur Macintosh de 
Goulven Habasque, Sybex — 233 
pages — 148 FF. 


La première partie concerne 
l'initiation à Multiplan sur Mac- 
intosh, avec seulement 53 pages 
très aérées : ce n'est donc pas 
pour vous initier à Multiplan que 
nous vous conseillons cet ouvra- 
ge; l'initiation n'est pas assez 
approfondie à notre avis. Ce qui 
est intéressant, c'est la suite : 
vingt-sept petits tableaux d'anal- 
yse numérique (6), de géométrie 
(6), de statistiques (6), d'écono- 
mie (5) et de gestion (4). Nous 
vous conseillons de consulter ce 
livre avant de l'acheter, pour voir 
si les exemples vous intéressent. 


BASIC Engineering, Scien- 
ce, and Business Programs 
for the Apple II and Ile, 
Brady Comm. Co, Prentice-Hall 
— 330 pages —- $29.95 


Malgré son titre anglais très géné- 
ral, ce livre traite avant tout de 
divers problèmes de statistiques : 
gestion des matrices, régressions 
linéaires, systèmes d'équations 
multiples, tris, résolution d'équa- 
tions différentielles, simulations, 
etc. 


Chacun des problèmes est abordé 
d'abord théoriquement et par 
l'étude d'exemples, puis par un 
programme en Applesoft, facile- 
ment transposable d'ailleurs sur 
d'autres ordinateurs. En revan- 
che, aucune routine en assembleur 
6502 n'est proposée. 


Macintosh, quels logiciels ? 
de Pierre Courbier, ETSF —-143 
pages. 

Démonstration, de rapide à très 
schématique, d'un certain nombre 
de logiciels pour Macintosh. Un 
fourre-tout bien rédigé, mais dont 
l'utilité ne nous semble pas évi- 
dente. Réalisé sur ImageWriter, 
mais en qualité courrier … 
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MacAstuces par Hervé Thiriez, 
Editions du PSI —- 264 pages — 
150 FF. 


Hhmm ! Difficile de parler du 
petit dernier du rédacteur en chef. 
Le mieux est peut-être de lui 
demander de le présenter 
lui-même : 

“Ce livre est destiné à tous les 
utilisateurs du Macintosh ayant 
déjà fait le tour de leur machine. 
On y trouve en effet de nombreu- 
ses explications sur des notions 
parfois mal maîtrisées (le rôle du 
Finder, par exemple), et de multi- 
ples trucs et astuces d'utilisation. 
Une première partie (88 pages) 
couvre le Macintosh lui-même : 
les "allergies" du Mac, le 
système, le bureau, le clavier, les 
disquettes et les configurations. 
La seconde partie — les logiciels — 
traite de douze logiciels standards. 
L'avenir est couvert dans la 
troisième partie, avec les intégrés, 
accélérateurs et autres program- 
mes faciliteurs. 


Une disquette d'accompagnement 
facultative (200 FF TTC) fournit 
un ensemble de règles pour 
MacWrite, un utilitaire pour 
Muitiplan, des démos animées 
ThinkTank et MacDraw, des 
images MacPaint bien utiles, un 
package de programmes statis- 
tiques et graphiques et une police 
de caractères graphiques créée par 
l'auteur. 


Entièrement réalisé en Macintosh, 
mais sorti sur Laser Writer, ce 
livre est bien présenté, avec de 
nombreuses illustrations. Quant 
au contenu... un must, je 
l'espère, pour ceux qui veulent 
tirer le maximum de leur 
Macintosh !” 


Apple Ilc, guide de l'utili- 
sateur de Thomas Blackadar, 
Sybex — 147 pages —- 98 FF. 
Encore une traduction … 


Cet ouvrage est très général et 
apporte un début d'initation au 
Basic, donnant à la fin un guide 
de référence du Basic limité aux 
seuls mots réservés introduits 
dans le livre (?). A consulter pour 
voir si on ne préfère pas lire la 
documentation Apple et faire des 
économies. 





Multiplan et Chart sur Mac- 
intosh de Xavier Bouilloux, 
Edimicro — 235 pages — 159 FF. 
Cela m'énerve toujours de voir un 
livre sorti sur ImageWriter sans 
même utiliser la qualité courrier. 
Certes, cela gagne du temps, mais 
quand même. La première partie, 
guide de l'utilisateur pour le livre, 
Macintosh, Multiplan et Chart, est 
très succincte : à peine 30 pages 
pour l'ensemble des deux logi- 
ciels ; ce n'est pas comme cela 
qu'on apprendra à les utiliser. La 
seconde partie comporte 10 exem- 
ples, dont 5 avec passages au 
graphique. L'intérêt principal de 
l'ouvrage tient à l'illustration de 
l'utilisation de Chart, sur lequel il 
existe moins d'ouvrages. Nous 
aurions préféré voir un livre 
uniquement sur Chart, avec un 
chapitre sur la communication 
avec Multiplan. 


Les ressources de l'Apple 
IIc de Nicole Bréaud-Pouliquen, 
Editions du PSI — 106 pages — 85 
FF. 


Le premier ouvrage en français où 
l'on trouve un certain nombre de 
renseignements pour la program- 
mation du Ilc, avec en particulier 
la liste des instructions du 65C02. 
A conseiller à tous ceux qui pro- 
gramment en assembleur sur le Ilc 
et, aussi, à ceux qui auront mis le 
chip du Ilc sur leur Apple II. 


Multiplan facile de Georges 
Liégois, Marabout — 126 pages — 
29 FF. 


Un exemple typique de travail 
rapide : le livre est écrit autour de 
la version américaine de Multi- 
plan, pour "tous" matériels. C'est 
ainsi que les tableaux sont sortis 
en Macintosh, alors que le mode 
d'emploi se réfère aux comman- 
des de Multiplan avec les autres 
matériels. Le souci de ratisser 
large amène l'auteur à présenter 
les commandes communes à tous 
les matériels, sauf au Macintosh 
(pourtant cité en première et qua- 
trième de couverture) pour lequel 
Muiltiplan s'utilise très différem- 
ment. Avec cette approche "tous 
matériels”, le lecteur est privé de 
la présentation des raccourcis 
disponibles sur tel ou tel matériel. 


Basic Applesoft Lexicum, 
(Manuel de référence alphabé- 
tique Basic - DOS 3.3 - ProDOS) 
de Paul Merry, Mnémodyne — Un 
pavé — 168 FF. 


Cet ouvrage date d'un an, mais 
nous n'avions pas encore eu 
l'occasion de le voir. Il ajoute à 
l'ancien manuel de référence, déjà 
couvert dans Pom's, 62 pages sur 
le ProDOS, bien utiles dans la 
mesure où la littérature relative au 
ProDOS est encore pauvre. Enfin, 
maintenant, la reliure est un peu 
plus solide … 


Macintosh : outils, progi- 
ciels, applications de Xavier 
Gaucherand, Edimicro — 237 
pages — 148 FF. 


Un des rares ouvrages généraux 
sur le Macintosh qui ne se 
contente pas de refaire le mode 
d'emploi de base du Mac avec ses 
logiciels "résidents" et Multiplan. 
Cinq parties : présentation du 
matériel, systèmes et langages, 
logiciels d'application, domaines 
d'utilisation et choix d'une 
configuration. Les analyses de 
points forts et points faibles des 
logiciels sont assez bien vues. Un 
livre intéressant. 


Le secrétariat par traitement 
de texte de Ilya Virgatchik, 
Marabout — 287 pages — 160 FF. 


Nous sommes toujours dans les 
produits sur CP/M : bien que cela 
ne soit pas apparent dans le titre, 
il s'agit d'un manuel pratique, et 
complet, de Wordstar. 


Le manuel du Basic par M. 
Waite et M. Pardee, Hachette 
Informatique — 344 p. - 130 FF. 
Traduit de l'anglais. 


Il s'agit d'un manuel de cours, et 
non d'un livre de référence. Le 
cours est bien fait, clair et 
pédagogique, agrémenté par de 
nombreux petits dessins humo- 
ristiques que j'ai bien appréciés. 
Bonne lecture pour débutant. Il 
s'agit cependant du Basic Micro- 
soft : n'achetez donc pas ce livre 
si vous vous intéressez exclusi- 
vement à l'Applesoft ou si vous 
cherchez des informations sur les 
particularismes des Basics sur 


Apple. 3 
C$ 
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Courrier des Lecteurs 


Alexandre Avrane, Olivier Herz 


Possesseur depuis peu d'un 
Apple Ilc, et tout nouvel abonné 
de votre revue, je viens de 
découvrir par hasard des signes 
étranges que je vois parfois 
utiliser dans certains logiciels. Je 
me suis par la suite aperçu que je 
pouvais les faire apparaître en me 
mettant en mode INVERSE. 
Comment puis-je utiliser correc- 
tement ces signes ? 


D'autre part, tous les conseils 
(POKESs entre autre) donnés aupa- 
ravant dans votre revue, sont-ils 
valables sur Ilc ? Enfin, pouvez- 
vous me conseiller un ouvrage qui 
permette d'approfondir les possi- 
bilités de mon Apple préféré ? 


Gérald Lamy 
84210 La RoquelPernes 


Les caractères souris que vous 
avez découvert par hasard sur 
votre Apple Ilc sont disponibles 
directement sur cette machine afin 
de pouvoir y utiliser la philoso- 
phie Macintosh (souris et menus 
déroulants). 


Un exemple de démonstration et 
de nombreux autres renseigne- 
ments techniques que vous re- 
cherchez sont indiqués dans le 
livre "Les Ressources de l'Apple 
IIc" (Editions du PSI). 


En ce qui concerne les différents 
conseils publiés par Pom's depuis 
le premier numéro, ceux-ci sont 
utilisables tels quels lorsqu'ils 
appellent le DOS, ProDOS ou 
l'Interpréteur Applesoft. En re- 
vanche, certaines adresses du 
moniteur Autostart, de la carte 
contrôleur de disques, et des 
interrupteurs entrée/sortie ne sont 
pas applicables directement sur un 
Ilc. 


J'ai créé, avec une table de formes 
(Shape de l'Applesoft), une carte 
d'Europe que je charge par un 
"Bload Europe, A8192". J'utilise 
ensuite un programme Basic pour 
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repérer les coordonnés des pays. 


Ayant, pour l'instant, entré les 2/3 
des coordonnées, je m'aperçois 
que la page graphique se trans- 
forme à chaque nouvel ligne de 
programme : des traits horizon- 
taux apparaissent dans tous les 
sens. J'ai essayé de mettre un 
LOMEM:16384, mais sans résul- 
tat. Quelle est l'erreur ? 


Laurent Poppeschi 
76200 Dieppe 


Celle-ci provient très certainement 
de la taille de votre programme 
Basic. En effet, la localisation en 
mémoire vive de celui-ci déborde 
sur les adresses des pages graphi- 
ques haute résolution. 


Une première solution consiste à 
charger votre image graphique en 
16384 ($4000) et non 8192 
($2000) et à utiliser HGR2 au lieu 
de HGR. 

Deuxième possibilité : réduisez la 
taille de votre programme en éli- 
minant les REMSs (Pom's N° 11) 
et en concaténant les lignes; vous 
pouvez aussi revoir votre techni- 
que de dessin (par exemple en uti- 
lisant une boucle FOR... NEXT 
qui lit les coordonnées en DATA 
et les écrit par HPLOT). 


Troisième méthode: charger votre 
programme Basic au-dessus de la 
première page graphique utilisée; 
votre programme est alors localisé 
à une adresse inhabituelle mais 
vous disposerez de moins de 
place mémoire pour vos variables. 
Pour cela, exécutez le programme 
suivant avant votre propre pro- 
gramme : 


10 POKE 104,64 : POKE 
16384,0:CLEAR:PRINT 
CHR$ (4) "RUN progr." 

Attention : cette dernière méthode 

dérange les pointeurs internes de 

l'Applesoft et il pourra vous être 
nécessaire de rebooter par la suite. 


Il existe enfin une dernière tech- 
nique plus élégante qui permet de 


faire "enjamber" un programme 
en Applesoft par-dessus les pages 
graphiques : voyez pour cela la 
page 63 du numéro 8 de Pom's 
ou le Recueil N°2 (p. 213-214) 
pour obtenir le listing du module 
en assembleur SPLITTER. 





Dans le numéro 18 de Pom's, j'ai 
été très désappointé de m'aperce- 
voir que le programme FENETRE 
ne fonctionnait pas correctement. 
En effet, la commande "& LET 
NV,VT,LN,NI(,IL)" n'est pas 
acceptée par mon Apple Ile. Le 
message "ILLEGAL QUANTITY 
ERROR" apparaît. 


Xavier Garcin 
01630 St. Genis-Pouilly 


Vous avez raison, il y a une erreur 
dans l'article, page 24. Il faut 
lire : 

& LET NV,VT,HT,LN,NI(IL) 
avec : 

NV nom d'une variable 

VT tabulation verticale 

HT tabulation horizontale 

LN longueur de la barre inverse 
NI nombre d'items 

IL  interligne (optionnel) 

Par ailleurs, ce programme, déci- 
dément marqué par la malchance, 
avait subi un ennui de montage. 
Son listing était incomplet, et les 
lecteurs non abonnés aux dis- 
quettes ont dû attendre le n°19 
pour pouvoir l'utiliser. Pardon … 


+ L'envoi de codes ASCII 
compris entre 0 et 127 peut être 
nécessaire (par exemple l'impri- 
mante EPSON LO1500 imprime 
obligatoirement en italique si elle 
reçoit des codes compris entre 


: 128 et 255). Or la routine PRINT 


de l'Applesoft met automati- 
quement le 8ème bit à let ne 
permet donc que d'envoyer des 
codes compris entre 128 et 255. Il 
en est de même d'AppleWriter. 
On peut généralement forcer le 
8ème bit à 0 au niveau de la carte 






interface ou de l'imprimante en 
positionnant correctement les 
switches. 

Mais alors on ne peut plus 
envoyer de codes compris entre 
128 et 255, ce qui peut aussi être 
utile, mais de manière plus 
exceptionnelle, par exemple pour 
définir des caractères program- 
mables. Le problème ayant été 
déplacé peut être résolu en 
utilisant une routine en langage 
machine telle que celle proposée 
par Apple Seedrin (Pom's n°12), 
ou, plus simplement, par un 
POKE A,XX où X est le code 
ASCII à envoyer (compris entre 0 
et 255) et À est l'adresse 
correspondant à la sortie des 
données sur la carte interface. Elle 
dépend évidemment de la carte 
utilisée. Par exemple, pour la 
carte Supersérie Apple placée 
dans le slot 1, À est égal à 49304. 
Si l'imprimante n'a pas de buffer, 
ou si la liaison est particulièrement 
lente, il peut être nécessaire de 
prévoir une temporisation entre 2 
POKESs successifs, pour éviter 
que des caractères se perdent. 
Notons au passage que 
l'imprimante ImageWriter inter- 
prète correctement le 8ème bit lors 
des séquences de définition de 
caractères programmables, même 
lorsque les switches sont 
positionnés pour forcer le 8ème 
bit à 0. 

+ Le ‘ç' (ASCII 92) ne peut pas 
être utilisé dans les textes 
imprimés par APPLEWRITER 
(version ][+) car il est interprété 
comme caractère de soulignement. 
Un lecteur aurait-il trouvé le 
moyen de changer le caractère de 
soulignement? En attendant, j'ai 
défini le ‘ç’ comme un caractère 
programmable (associé au code 
ASCII 106) de mon imprimante 
IMAGEWRITER et j'ai prévu un 
élément du glossaire qui insère 
dans mon texte la séquence des 
codes ASCII 27, 44, 106 ,27 ,36. 
Ainsi, par CTL-G suivi d'une 
seule touche, je passe en alphabet 
"utilisateur" (27,44), j'imprime le 
g' (106) et je reviens au jeu de 
caractères normaux (27,36). On 
peut faire la même chose pour une 
autre imprimante. 

+ Encore un problème de 8ème 
bit: dans le n° 9 de Pom's, O. 
Herz propose une routine qui 


permet de récupérer dans.un 
tableau de variables alphanu- 
mériques le contenu d'un 
catalogue de disquette DOS. En 
fait, on récupère dans ces 
variables des caractères dont le 
8ème bit est forcé à 1. Ce n'est 
pas gênant dans le programme de 
démonstration, mais si l'on utilise 
cette routine dans un autre 
programme, il est impossible, par 
exemple, de comparer des noms 
de fichiers tirés du catalogue et 
des noms de fichiers entrés au 
clavier (qui sont en mémoire avec 
le 8ème bit égal à 0). La solution 
consiste à forcer à 0 le 8ème bit 
dans la routine d'O. Herz (AND 
#%01111111, en assembleur). La 
chaîne de caractères A$ de la ligne 
10 devient alors: "300:38 48 84 
FD A0 00 29 7F 91 FE E6 FE DO 
02 E6 FF 68 A4 FD 60 A9 AO 60 
N D823G" et le POKE 56,18 de 
la ligne 40 devient POKE 56,20. 


Jean-Claude Lengrand, 78000 
Versailles 


Lorsqu'on utilise un programme 
de gestion de données avec une 
disquette “fichier” initialisée selon 
une procédure normale, il est 
toujours ennuyeux de rencontrer, 
lors de l'enregistrement de 
nouvelles données, l'erreur 
"disquette pleine". L'appel d'une 
simple routine en langage 
machine, chargée à l'adresse 
$300, permet de connaître le 
nombre de secteurs encore libres. 
En enregistrant momentanément 
les données soit dans la carte 
langage, soit dans la mémoire de 
la carte 80 colonnes “étendue”, 
initialisée respectivement en 
pseudo-disquette de 16K (voir 
Pom's 12, “Disque virtuel 
16Ko”), ou 64K (voir Pom's 14, 
“Disque virtuel 64Ko”), et en 
faisant un appel, avant et après, à 
cette routine, il est possible de 
confronter l'occupation en 
secteurs de ces données avec le 
nombre de secteurs restés libres 
sur la disquette "fichier", et de 
décider par programme 
l'initialisation d'une autre 
disquette. Cette routine est tirée 
du programme “HELLO complet” 
(Pom's 6) et adaptée comme suit : 





FRE.S 
1 ORG $300 
2 VTOC EQU $B3F2 
3 JSR SAFF7 
4 LDA  #$00 
5 STA COUNT 
6 STA COUNT+1 
7 LDY #$8C 
8 NEXTS  LDA VTOC, Y 
9 TESTS BEQ NEXTT 
10 ASL 
21 BCC TESTS 
12 PHP 
13 INC COUNT 
14 BNE OTHR 
15 INC COUNT+1 
16 OTHR PLP 
17 BNE TESTS+2 
18 NEXTT  DEY 
19 BNE NEXTS 
20 RTS 
21 COUNT  DFB 2 
22 END 
FRE 


0300- 20 F7 AF A9 00 8D 25 03 
0308- 8D 26 03 AO 8C B9 F2 B3 
0310- FO OF OA 90 FB 08 EE 25 
0318- 03 DO 03 EE 26 03 28 DO 
0320- F1 88 DO E9 60 


Sauver cette routine comme suit : 

BSAVE LIBRE,A$300,L$25 
En début de programme de 
gestion, mettre l'instruction : 

PRINT CHR$(4)"BLOAD 

LIBRE, S6,D1" 
Pour connaître le nombre de 
secteurs libres "SL", "s" étant le 
numéro du slot et “d" le numéro 
du drive, insérer cette ligne 
d'instructions : 

POKE 43626,5: 

POKE 43624, d: 

CALL 768: 

SL=PEEK(805)+ 

PEEK(806)"256 
Pour initialiser une nouvelle 
disquette "fichier" avec 526 
secteurs, insérer cette ligne 
d'instructions : 

POKE 46922,96: 

POKE 46923,234: 

POKE 44723,4: 

PRINT CHRS(4)"INIT 

XX, S6,D2": 

PRINT CHR$(4) 

"DELETE XX" 
Thierry Haurie - Via Napoli , 2b 
21027 ISPRA (VA) - Italie 





Pom's n° 21 








Micro-Informations 
Jean-Michel Gourévitch 


our les aficionados d'Apple, la nouvelle 
a résonné comme un déchirement : Steve 
Jobs s'en va, la société qu'il a créée lui 


intente un 


procès. Après Steve 


Wozniak, voici que part l'autre père fondateur 
d'Apple, et un peu de la micro-informatique. On 
aura beau dire que la croissance d'une société a ses 
raisons, qu'il faut, un jour, trancher le cordon 


ombilical, il n'empêche 


: les Applemaniaques en 


auront comme un pincement au cœur. 

Pas de quoi paniquer, cependant, dans l'immédiat : 
Jobs a quitté Apple avec des idées et quelques 
ingénieurs. On entendra à coup sûr reparler de lui. 
Quant à Apple, la société à la pomme ne manque pas 
de projets dans ses cartons pour les trois à quatre 
années à venir. Après, On verra... 


Parmi ces projets, on trouvera de quoi moderniser 
l'Apple // et muscler le Macintosh. 


Moderniser 
l'Apple // 


Priorité chez Apple : la remise au 
goût — et à la technique — du jour 
de l'Apple //. Si, en France, ses 
ventes ont un peu faibli en 
octobre, aux Etats-Unis, il conti- 
nue de résister vaillamment. Pour 
preuve, le contrat passé avec 
l'administration des postes de ce 
pays qui en a acheté en septembre 

00 d'un coup (s'ajoutant aux 
1400 acquis au début 1985). Au 
Sicob, Apple France a annoncé 
officiellement les nouveautés de 
l'Apple // qui avaient été présen- 
tées aux lecteurs de Pom's dans le 
numéro 20 : lecteurs Unidisk 3.5 
de 800 Ko, carte d'extension de 
mémoire de 1 Méga-octet, impri- 
mante Imagewriter II. Voici donc 
l'Apple // officiellement nanti de 
davantage de mémoire que le 
Macintosh. 


Et cela n'est qu'un début : les 
fabricants de cartes d'extension 
s'agitent. L'un d'eux, Coit Val- 
ley Computers, a trouvé moyen 
de caser 1536 Ko (plus d'un Mo 
et demi !) sur sa MultiRAM //e 
(utilisable seulement sur l'Apple 
[le). Peuvent l'utiliser tous les 
programmes écrits aux spéci- 
fications d'Apple, et notamment 
Appleworks : la carte est livrée 
avec un “patch” pour étendre la 
capacité d'Appleworks, un RAM 
disk permettant d'utiliser la carte 
comme disque virtuel, ainsi qu'un 
test de mémoires; un bus de la 
carte permet d'y relier un co- 
processeur 16 bits pour accélérer 
les traitements). Son prix est pres- 
que raisonnable : 699 dollars. 





Une fois la mémoire de l'Apple // 
"gonflée", encore faut-il l'utiliser, 
et avec une rapidité suffisante. 
Après avoir sorti MouseDesk, son 
"Finder" utilitaire style Mac, à 
fenêtres et menus déroulants, 
VersionSoft travaillerait actuel- 
lement sur un "Switcher" pour 
l'Apple // (le Switcher permet de 
partitionner la mémoire de l'ordi- 
nateur, et d'y installer simulta- 
nément plusieurs programmes qui 
peuvent communiquer entre eux). 
Avec 1,5 Mo, il y a de quoi nicher 
pas mal d'applications et de 
fichiers en mémoire. 


Reste le second problème : la 
rapidité. Le "vieux" processeur 
6302 de l'Apple // n'avait pas été 
conçu pour subir de telles épreu- 
ves ni gérer de telles mémoires. Il 
faudra donc incorporer à l'Apple 
1! un nouveau processeur. Peut- 
être le 68516, qui se substituerait 
au 6502. 


Une autre solution serait 
possible : installer sur une carte 
(en coprocesseur, donc) le tout 
nouveau 68020 de Motorola. Quel 
est encore celui-là ? Tout 
simplement la dernière version du 
processeur 68000 qui équipe. le 
Macintosh, plus sophistiquée : 
bus 32 bits, capable d'adresser 4 
Giga-octets de mémoire, et 
surtout encore plus rapide (12,5 
Mhz contre 7,83 Mhz 
actuellement). Rêvons un peu : 
l'Apple // muni du même format 
de disquettes et du même 
processeur, et qui simulerait le 
fonctionnement du Mac ? Ce 
serait trop beau pour être vrai. 





Muscler le 
Macintosh 


En tout cas, on parle déjà de ce 
ocesseur pour équiper le Mac- 
intosh. Ou plutôt son successeur, 
car il est improbable que l'on 
puisse mettre à niveau les Macs 
d'aujourd'hui. Avec ce proces- 
seur, disposer de deux à quatre 
Mo de mémoire vive, et améliorer 
rapidité et gestion d'écran devien- 
drait possible. 
Le problème actuel du Macintosh, 
comme l'ont remarqué ses utili- 
sateurs, c'est qu'on atteint trop 
vite les limites de l'ordinateur. 
L'utiliser avec un système un peu 
copieux (enflé notamment de poli- 
ces de caractères et d'accessoires 
de bureau) et des programmes 
"mémorivores" comme Jazz exige 
désormais une greffe de mémoire 
et un disque dur. Et bien que les 
prix du Macintosh aient été réduits 
en septembre (de quelques 
6 000,00 F HT pour le 512 Ko), 
l'addition atteint encore des 
sommets vVertigineux. À la 
mi-octobre, il fallait compter 
environ 16 000,00 F pour le 
nouveau disque dur d'Apple (pas 
encore disponible), et un peu plus 
de 5 000,00 F pour le passage à 
1024 Ko (greffe de 512 Ko 
supplémentaires). Aux Etats- 
Unis, Beck Tech propose cette 
transformation à 1 024 Ko pour 
$549, et offre aussi une extension 
portant la mémoire vive totale à 
deux Mo. Qui dit mieux ? 


Attention cependant : pour fran- 
chir la frontière des 512Ko, et 
utiliser cette mémoire supplémen- 
taire directement (sans passer par 
un RAM disk), il est nécessaire de 
modifier la ROM du Macintosh, 
de façon à déplacer la zone de 
mémoire vive gérant l'écran du 
Mac. Une modification qui n'est 
pas sans danger et qui peut poser 
des problèmes de garantie. 


Voici une des raisons pour les- 
quelles les utilisateurs attendent 
avec impatience la nouvelle ver- 
sion de la ROM (128 Ko) 
qu'Apple préparerait pour le 
Macintosh. On risque hélas de 
l'attendre jusqu'à 1986. De même 
que le lecteur de disquettes double 
face. Il sera d'ailleurs peut-être 
remplacé par un lecteur de plus 
grande capacité. 


C'est en janvier prochain, lors de 
l'Assemblée générale des action- 
naires Apple que toutes ces nou- 
veautés devraient être annoncées. 
En attendant, il faudra faire avec 
ou, pour être plus précis, sans… 


Apple //e : de plus 
en plus de mémoire 
L'Apple // suscite des perfection- 


nements qui augmentent notable- 
ment sa puissance. 


Côté stockage, voici le premier 
disque dur à installer à l'intérieur 
de l'Apple //. Surprise : il est 
français. D'une capacité de 10 
Mo, ce disque dur est conçu par 
Gerb Electronique, une société 
de Saint Nazaire. Comment loger 
un disque dur sous le capot de 
l'Apple // ? Bonne question, car il 
n'y a guère de place. Eh bien, on 
commence par retirer le bloc 
d'alimentation, et on lui substitue 
le Mega-Core, qui contient à la 
fois une alimentation de dimen- 
sions plus réduites, et un disque 
dur de 3 pouces et demi d'une 
capacité de 10 Mo. La carte de 
contrôle du disque s'installe dans 
un des slots de l'Apple; elle peut 
gérer 64 Mo. Le logiciel permet- 
trait de gérer le disque dur avec le 
système ProDOS, ce qui est nor- 
mal, mais aussi avec le Pascal, le 
CP/M et le Dos 3.3, ce qui l'est 
moins. Prix : 18 000,00 F. 


Côté mémoire vive (MEV), voici 
la Kache Board d'OKS. Une 
carte "intelligente" qui s'installe 
dans l'un des slots 4, 5, 6 ou 7. 
Elle contient 256 Ko, et conserve 
en mémoire seulement les don- 
nées les plus souvent utilisées; 
elle procède automatiquement à 
des sauvegardes régulières sur le 
disque dur, et réduit ainsi les 
temps d'accès. Un complément 
utile d'un disque dur pour $695. 


Côté processeur, voici une nou- 
velle carte incorporant un micro- 
processeur 65C816 (16 bits) : la 
MultiRAM IIEX de Check- 
mate, qui comprend aussi une 
extension de mémoire. On enlève 
le processeur et la ROM de 
gestion de mémoire du chassis de 
l'Apple //, et on les enfiche sur la 
carte, Cette même carte inclut le 
Max Operating System de 
Micromagic (décrit dans le 
précédent numéro de Pom's). 
Prix de la carte : $200. Pour le 
moment, le hic, c'est qu'on ne 
trouve guère de programmes 
développés pour le 65C816. Et 
l'année prochaine ? Si l'Apple // 
se met au 16 bits. 


Apple //c : de plus 
en plus de mémoire 


La carte d'extension de mémoire 
d'Apple ne s'adresse qu'au Ile, 
mais les fabricants de cartes ont 
aussi pensé au Ilc. 


Applied Engineering propose 
ainsi saZ R pour le Ilc. Elle 
s'installe à l'intérieur du //c et 
porte la mémoire vive à 640 Ko. 
Utilisables en disque virtuel, ou 
directement par certains program- 
mes comme Apple Works. Utilisa- 
bles aussi avec le Pascal, le DOS 
3.3, CP/M et le ProDOS. En 
prime, la carte contient un proces- 
seur Z-80 ettant, en effet, au 


IC de faire tourner tous les 
programmes en CP/M (DBase II, 
Wordstar, etc.). Prix : $549 pour 
les 512 Ko. 
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Checkmate Technology offre 
la MultiRAM C avec également 
512 Ko pour $429, mais sans le 
Z-80. 


Toujours pour le Ilc, Applied 
Engineering vend aussi ($79) 
une horloge qui se branche sur le 
port série. 


Des classiques 


Sur le front des logiciels, voici 
d'abord des classiques qui nous 
reviennent de divers bords. 


Word Perfect de SSI, célèbre 
car il s'agit d'un des meilleurs 
traitements de texte de l'IBM PC, 
vient de se convertir à l'Apple //. 
I1 dispose de tout ce qu'on peut 
attendre d'un traitement de texte : 
visualisation à l'écran du texte tel 
qu'il sera imprimé, remplacement 
des mots, déplacements de para- 
graphes et de pages, correction 
orthographique (hélas, en anglais 
seulement), et il est configuré 
pour de nombreuses imprimantes. 
Prix : $179. 


Wordstar est aussi utilisable sur 
l'Apple //, à condition de disposer 
d'une carte d'extension CP/M. 
Voici quelque temps, son éditeur 
MicroPro proposait un ensemble 
comprenant Wordstar et la carte. 
Cet ensemble, composé de Word- 
star, Starindex, Spellstar, Report 
Star, Mailmerge, Datastar et Calc- 
star, ainsi que d'une carte CP/M 
fonctionnant à 6 Mhz, est bradé 
aujourd'hui par Total Access à 
299 dollars. Un prix défiant toute 
concurrence. 


Quant à Software Publishing, 
l'éditeur des célèbres PFS File et 
Write, il vient d'améliorer son 
tableur PFS Plan. Celui-ci gère 
maintenant en mémoire 70 rangs 
de 36 colonnes. Utilisation parti- 
culièrement facile, prix : $125. 


Des accessoires 
de bureau 


Monitor, par Dogstar Soft- 
ware, est un de ces programmes 
résidant en mémoire dont on a 
l'habitude sur l'IBM PC. Il s'ins- 
talle derrière tout programme écrit 
en Pascal et permet, en pressant 
sur une touche, de disposer d'une 
calculatrice, du catalogue des 
fichiers, de fonctions de gestion 
de mémoire et de disquettes. Le 
programme offre même un mini 
assembleur-désassembleur. Prix : 
49 dollars. 


On connaissait les accessoires de 
bureau du Macintosh, en voici 
pour votre Apple // préféré : les 
AppleWorks Accessories. Ils 
s'installent dans Appleworks et 
ont été conçus par Pinpoint. On y 
trouve un carnet de notes, une 
calculatrice, un agenda, un com- 
poseur automatique de numéros 
de téléphone, et enfin la possi- 
bilité d'inclure des dessins dans 
des documents ou d'imprimer des 


adresses sur des enveloppes. Le 
tout pour seulement $69. 


D'autres accessoires de bureau, 
avec Jeeves de PBI. Une seule 
pression sur une touche du 
clavier, et l'exécution d'Apple- 
Works est suspendue; on peut 
alors utiliser un calendrier, un 
composeur de numéros de télé- 
phone avec annuaire, une calcula- 
trice à quatre fonctions, un 
bloc-notes ou un réveil. Prix : 
$50. 


Des compatibles : 


On les croyait disparus avec 
l'arrivée des Apple //e et //c : 
revoici les ordinateurs compa- 
tibles. Aux Etats-Unis, Franklin 
sort l'Ace 2000 (5699) 
compatible avec le //e et le //c. 
Grâce à un nouveau DOS : le 
FDos. 


Boîtes métalliques, double haute 
résolution graphique, caractères 
souris, claviers numériques. Ces 
machines ne violeraient pas le 
copyright de la ROM d'Apple. 


En France, certaines boutiques 
commencent à offrir des compa- 
tibles "made in Taïwan"; certains 
proposent même d'acheter les 
ROMSs chez Apple. Attention à ces 
matériels vendus à des prix inté- 
ressants, mais dont la légalité est 
douteuse. En tout cas, le fait 
qu'on continue à copier l'Apple // 
montre qu'il est ‘loin d'être 
enterré. Les lecteurs de Pom's en 
doutaient-ils ? 


Pour le Macintosh : 
des langages 


Par la facilité de son apprentis- 
sage, le Macintosh se révèle un 
outil de choix pour l'application 
des systèmes experts et des langa- 
ges d'intelligence artificielle. Ces 
langages se multiplient à présent 
pour le Mac. 


Tout d'abord, la version Mac du 
Prolog II. Bénéficiant de l'envi- 
ronnement Macintosh (fenêtres, 
souris, etc.). Ce langage a été 
défini à partir du Prolog II conçu 
par le GIA (Groupe d'intelligence 
artificielle de Luminy, Université 
d'Aix Marseille II). Le Prolog II 
est distribué par Apple et vendu 
au prix de 4 744,00 F TTC. 


Ensuite, voici le MacExpert de 
MindSoft. Un système expert 
"d'ordre zéro", capable de créer 
un système résolvant dilemmes ou 
alternatives, en matière de dia- 
gnostic, de classification, de 
planification financière, etc. Ce 
langage est basé sur le calcul des 
propositions et ses bases de 
connaissance sont composées de 
règles construites à partir de 
phrases déclaratives. Ce système 
autorise 250 règles avec un Mac 
de 128 Ko et jusqu'à 1 000 
règles avec un 512 Ko. 


Autre système expert, Nexpert, 
développé par trois français (Alain 
Rappaport, Jean-Marie Chauvet et 
Patrick Perez) a fait l'admiration 
des américains. Ce programme — 
vendu quelques $5000 -— 
accomplit les mêmes tâches que 
d'autres vendus plus de 
$100 000. Utilisant l'interface 
graphique du Macintosh, sa 
structure de connaissance est 
automatiquement construite, 
visualisée et mise à jour par le 
système. 


Enfin, Experlogo, un produit de 
Turgeon, est un Logo pour le 
Mac permettant la réalisation de 


graphiques. 
Communication. 


.… grâce au modem développé par 
Hello Informatique. Il numé- 
rote, se connecte et déconnecte 
automatiquement. Voici pourquoi 
ce modem ne comporte aucun 
bouton, sauf un de réinitialisation 
exceptionnelle du processeur. Ce 
véritable micro de communication 
comporte, comme l'Apple //c, un 
micro-processeur 65C02. Il peut 
donc être programmé. On peut 
développer un programme de 
communication et le télécharger 
dans le modem. Résultat : ce 
modem peut transformer l'ordi- 
nateur en serveur, il peut aussi 
servir de répondeur automatique, 
enregistrant automatiquement les 
messages des terminaux, ou des 
minitels qui l'appellent, et ce sans 
mobiliser l'ordinateur. Il peut 
aussi servir à crypter ou décrypter 
les données échangées. Bien 
évidemment, il fonctionne avec 
Mac Tell, MacTerminal, Version 
Com ou ASCII Express, et 
permet d'accéder aux serveurs à 
1.200 bauds. Le tout pour moins 
de 5.000 francs. 


Apple France offrira aussi deux 
nouveaux modems : l'un en bas 
de gamme pour utilisation à 300 
bauds, à faible coût. L'autre, plus 
évolué, à 1 200 bauds. 


Des utilitaires 


Macdisk Catalog, de New 
Canaan Micro Code, permet 
d'établir un catalogue de vos 
disquettes et des fichiers qui s'y 
trouvent, avec un maximum de 
1092 fichiers par catalogue. Il 
permet aussi d'imprimer des 
cartes de référence. Prix : $40. 


Dream of the Phoenix pro- 
pose des disquettes vendues 40 
dollars, et remplies à ras bord 
d'utilitaires utiles. L'une contient 
un calendrier, une autre un 
programme de communication 

rmettant d'établir un bulletin. 

s Quick and Dirty Utilities 
(en deux volumes) comprennent 
des configurations de terminaux 
s'installant dans le menu Pomme, 
des grapheurs, etc. 


Des accessoires 
de bureau 


Le menu "Pomme" du Macintosh 
est devenu le refuge favori des 
accessoires de bureau. Beaucoup 
sont distribués par les "Bulletins 
boards" américains. On y trouve 
notamment un compteur de mots 
(incapable cependant de compter 
les mots dans MacWrite), une 
horloge stylisée au nom parlant 
("Big Ben"), des chronos décom- 
ptant le temps, un programme 
permettant d'apprendre le Morse. 
Et même un mini "grapheur" 
permettant de réaliser à loisir 
camemberts, courbes, etc. en 
n'occupant que 18 Ko. 
Attention cependant aux incom- 
patibilités : ainsi MacTracks, qui 
permet de créer des macros (sé- 
uences de commandes automa- 
tiques) dans un programme ne 
fonctionne pas avec le précieux 
Art Grabber (pour ouvrir un 
dessin MacPaint et l'incorporer 
dans n'importe quel programme). 
On risque souvent de voir appa- 
raître une bombe en appelant un 
de ces accessoires. 


Calculator Construction Set 
de Dubl Click permet de cons- 
truire soi-même une calculatrice 
personnalisée et de l'inclure dans 
le menu Pomme. Prix : $99. 


Et voici enfin, pour Macintosh, 
Sidekick, le célèbre programme 
développé par le non moins 
célèbre Philippe Kahn — patron 
français de Borland — et qui a fait 
un malheur sur l'IBM PC. La 
version Macintosh comprend une 
partie s'intégrant dans le menu 
"Pomme" avec un composeur de 
numéros de téléphone (il manque 
l'interface pour le relier au réseau 
français), un mini programme de 
communications invoquable de- 
puis n'importe quelle application, 
une calculatrice plus perfection- 
née que celle du Mac (permettant 
notamment d'imprimer la "bande" 
de papier des calculs), un "spoo- 
ler” pour imprimer un texte tout 
en continuant à travailler avec le 
Mac (imprimer seulement des 
textes non formatés), une horloge 
analogique et un calepin plus 
évolué que celui d'Apple. Avec ce 
calepin, on peut ouvrir n'importe 
quel fichier à l'intérieur d'un 
programme, prendre des notes, 
procéder à du Couper/ Coller 
entre programmes. Cet instrument 
est génial et permet notamment de 
disposer de fenêtres dans Mac- 
Write, alors qu'elles n'existent 
naturellement que dans Word. 
Egalement regroupées dans le 
menu "Pomme", des mini-feuilles 
de calculs permettant de calculer 
des frais, de noter une liste de 
choses à faire, etc. 


Quant à Sidekick lui-même, il 
s'agit d'un programme permettant 
d'établir un annuaire et, en cli- 
quant sur un nom, de composer 
automatiquement le numéro de 
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téléphone (à condition de disposer 
de l'interface nécessaire), de cal- 
culer automatiquement le coût de 
la communication et de prendre 
des notes. Un de ces programmes 
dont les Américains raffolent, qui 
a aussi soulevé l'enthousiasme de 
J.-L. Gassée, l'ex-patron d'Apple 
France; il souffre cependant d'un 
handicap : il occupe à lui seul une 
partie de la disquette, et son 
système est mémorivore. Pour 
l'utiliser, il faut : 
1) deux lecteurs; 
2) se servir d'une disquette pour 
le seul système; 
3) installer les applications et fi- 
chiers sur la seconde. 


Pour un fonctionnement optimal — 
et cette règle vaut pour tous les 
accessoires de bureau — il vaut 
mieux disposer d'une mémoire de 
1 Mo et d'un disque dur … 


Des jeux 


Pinball Construction Set, 
d'Electronic Arts, ce flipper en 
kit qui fit les beaux jours de 
l'Apple //, est maintenant dispo- 
nible pour le Macintosh. On peut 
même dessiner ses décors avec 
MacPaint. 

Fokker Triplane est l'un des 
premiers simulateurs de vol pour 
le Mac, simulant, comme son 
nom l'indique, un triplan Fokker 
de la première guerre mondiale. 


De la musique 


De nouveaux programmes rendent 


encore plus musicaux aussi bien 
l'Apple // que le Mac. 


MUSE (MIDI Users Sequencer 
Editor), de Rolandcorp, permet 
de composer et jouer de la musi- 
que sur l'Apple // en utilisant 
l'interface MIDI, qui est devenue 
le nouveau standard en matière de 
musique d'ordinateurs. Possibi- 
lités : huit pistes indépendantes, 
correction automatique des erreurs 
rythmiques et utilisation possible 
avec un joystick. Prix : $150. 
Total Music, c: Southwork 
Music Systems, permet d'in- 
terfacer un Mac au standard 
MIDI. On peut enregistrer jusqu'à 
deux instruments MIDI à la fois. 
Prix : $489. 

Mega Track, de Musicworks, 
permet d'enregistrer directement 
depuis des instrumens MIDI. 
Pour 150 dollars. A noter que 
tous ces systèmes permettent 
d'inclure les signaux de codes 
horaires (SMPTE) rendant le Mac 
compatible avec les systèmes 
professionnels de vidéo et de 
cinéma. 

Enfin, Studio Mac de Creative 
Solutions, utilisant aussi l'inter- 
face MIDI, permet de simuler un 
clavier de synthétiseur à 8 voix 
pour $595. 

Le Mac devient ainsi peu à peu un 
instrument de musique étonnant. 


Adresses 


Applied Engineering 
PO Box 798 


Carrollton, Texas 75006 


Beck Tech 

Berkeley — California 
Checkmate Technology 
509 South Rockford Drive 
Tempe, Arizona 85281-3021 
Coit Valley Computers 
14055 Waterfall Way 
Dallas, Texas 75240 


Creative Solutions 
4701 Randolph Rd Suite 
12 Rockville, MD 20852 


Dogstar Software 
PO Box 302 
Bloomington, IN 47402 


Dream of the Phoenix 
PO Box 10273 
Jacksonville, Florida 32247 


Dubl Click Software 
18201 Gresham Street 
Northridge, CA 91325 


Fraciel 
42, rue des Prébendes 
37000 Tours 


Gerb Electronique 

ZI de Brais — 44600 St Nazaire 
Hello Informatique 

1, rue de Metz — 75010 Paris 
JCR 

58, rue Notre Dame de Lorette 
75009 Paris 

MindSoft 

11, bd. Edgard Quinet 

75014 Paris 

Musicworks 

18 Haviland 

Boston, MA 02115 


New Canaan Micro Code 


136 Beeck Rd 
New Cana, CT 06259 
75 Tableqeah T 

ablequab Trail - Dept 11 
Springboro, Obso 45066-11542 
PBI Software 
1155B-H Chess Drive 
Foster City, CA 94204 
Pinpoint SOI 728 SA) 
Tél : (415) 5301726 
Rolandcorp US 
7200 Domimion CEcle 
Los Angeles, CA 90049 
Software Publishing 
1901 Landings Drive 
Mountain View, CA 94043 
SouthWorth Music Systems 
Box 275, R.R.1 
Harvard, MA 01451 


SSI 
288 West Center Street 
Orem, Utah 84057 


Total Access 

PO Box 764246 

Redbird pes — Hangar #8 
Dallas, TX 75376-4246 
Turgeon 

17, rue Sextius Michel 
75015 Paris 


Version Soft 
66, rue Castagnary — 75015 Paris 
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Jean-Louis Gassée, de passage en France pour la promotion de son 
livre "La troisième pomme" (voir bibliographie), a accordé une 
interview à Pom's, dont nous vous faisons partager quelques extraits. 
Nous n'avons hélas pas la place de retranscrire ici l'équivalent d'une 
heure de propos à bâtons rompus. Nous avons fait cependant notre 
possible pour respecter l'ensemble de l'interview, malgré les 


indispensables coupures. 


> Quelle est aujourd'hui la 
stratégie d'Apple ? 

JLG : Le stratégie d'Apple est en 
cinq points : 

+ tout d'abord, de développer 
deux lignes de produits, Apple II 
et Macintosh, avec des modèles 
compacts et extensibles. 

* une ligne de périphériques 
communs, en fait, des standards 
de connection qui feront, à terme, 
que si par exemple on a un disque 
dur, il se connectera sur tous les 
appareils de la gamme ; on sim- 
plifie ainsi la vie de nos clients, de 
nos revendeurs et des auteurs de 
logiciel. 

+ mettre à la disposition des utili- 
sateurs un interface matériel et 
logiciel pour la communication 
qui leur permettent de disposer 
d'une interface de communication 
normalisée, homogénéisée. C'est 
un problème technique considé- 
rable mais je pense que, si on le 
résoud, on offrira des outils extré- 
mement compétitifs sur le marché. 
+ faire en sorte que nos clients 
eux-mêmes puissent être compé- 
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titifs dans un monde à fournis- 
seurs multiples, qu'ils puissent 
lire les fichiers établis avec les 
machines d'autres marques. 

+ le dernier point est un peu plus 
à long terme, mais il en faut. 
C'est de faire des recherches sur 
les architectures du futur. Tout 
simplement parce que la vocation 
d'Apple, c'est d'intercepter l'in- 
novation et de l'industrialiser. 
Aujourd'hui, il y a tout un tas de 
recherches qui se font en logiciel 
et qui vont aboutir. Ce qu'on 
essaie de faire avec les archi- 
tectures du futur, c'est d'être prêts 
à les intercepter avec des machi- 
nes qui seront par exemple dix 
fois aussi puissantes qu'un Mac- 
intosh, plus puissantes d'ailleurs 
que pas mal de super-minis 
d'aujourd'hui. C'est à long terme, 
mais on pense avoir quelques 
idées sur la question. On a un 
budget recherche et développe- 
ment pour 1986 qui dépasse 100 
millions de dollars, alors … 

> Avec l'extension de la 
gamme Apple II comme de 


Entretien avec 
Jean-Louis Gassée 


celle du Macintosh, n'y a-t- 
il pas un risque sérieux 
d'augmenter les problèmes 
de compatibilité ? 

C'est l'éternel problème. Ma 
préférence, quand j'ai le choix, va 
vers le maintien de la compatibilité 
plutôt que la rupture. Je pense que 
cela ne s'est pas trop mal passé 
avec le Ilc. On a parfois des 
surprises avec la compatibilité : 
on se dit après coup "Mais 
comment je n'y ai pas pensé...". 
Nous faisons travailler beaucoup 
de testeurs. 


Ceci dit, l'Apple II va entrer en 86 
dans sa dixième année : cela a for- 
cément changé entre les machines 
d'aujourd'hui et celle du début. 
La meilleure stratégie d'un cons- 
tructeur, c'est d'organiser quand 
même une certaine dose d'incom- 
patibilité : quand vous voulez 
apporter des progrès, si vous 
n'abandonnez pas quelque chose 
de temps en temps, vous allez 
faire un monstre qui marchera 
avec toutes les cartes depuis le 
début de l'humanité et tous les 


logiciels. 


> Et l'avenir ? 


JLG : Il y a deux voies qui nous 
intéressent à très long terme. 

La première, c'est comment utili- 
ser la technologie des calculateurs 
à jeu d'instructions réduit, des 
machines qui, au lieu d'avoir des 
jeux d'instructions très riches, 
auront un parti pris très différent : 
sur une même surface de silicium, 
on va mettre une logique beau- 
coup plus simple et une énorme 
quantité de registres. Avec des 
centaines de registres, quand on 
programme cela efficacement, on 
peut avoir des vitesses de calcul — 
avec la technologie actuelle, le 
silicium — extraordinaires. Si on 
projette cela dans trois à cinq ans, 
c'est une des voies. 


L'autre voie, c'est d'explorer 
aussi les architectures multi- 
circuits. C'est très compliqué 
parce que, dans ce domaine-là, un 
plus un ne fait pas deux. G 
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Bon de commande 


Disquettes 


(cf. Pom's n° 5) 
(cf. Pom's n° 8) 
. (cf. Pom's n° 10) 
(cf. Pom's n° 11) 
(cf. Pom's n° 13) 
(cf. Pom's n° 15) 
(cf. Pom's n° 15) 
MAX (Moniteur étendu) (cf. Pom's n° 18) 
DOMINOS (cf. Pom's n° 19) 
(cf. Page 68) 
(cf. Page 33) 
(cf. Page 29) 


Recueils 


N°1, recueil des revues 1 à 4 
Disquettes d'accompagnement 1 à 4 
N°2, recueil des revues 5 à 8 
Disquettes d'accompagnement 5 à 8 


Anciens numéros 


Revues 4 7  & 35,00 F 
Revues 9, 10 11 12 13 14 15 16. 17 18 19 20 21 40,00 F 


Disquettes Apple II, //e, //c 
172: 3, 54 5:16 7.8 9 ‘10 ci 12 55,00 F 
13 14 15 16 17 18 19 20 21 


Disquettes Macintosh 
14/15/16 groupées 150,00 F 


17 18 19 20 21 80,00 F 


Abonnements Pour 6 numéros à partir du s'L___] 


Abonnement à la revue seule 200,00 F 
Abonnement revue + disquettes Apple I, //e, //c 480,00 F 
Abonnement revue + disquettes Macintosh 600,00 F 


Total TTC : 
Supplément avion hors CEE : 15,00F par numéro et/ou disquette : 


Montant du règlement : 


Envoyez ce bon et votre règlement à : EDITIONS MEV, 64 rue des Chantiers 78000 VERSAILLES 
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Apple, Logique et systèmes 
experts. 

par René DESCAMPS. 

224 pages - 120,00 FF. 

Pour résoudre des énigmes logi- 
ques et bâtir des raisonnements. 


Basic Plus 80 routines sur 
Apple HI, 

par Michel MARTIN. 

144 pages - 95,00 FF. 

Pour muscler votre machine. 


Exploitation d’enquêtes sur 
Apple II et IBM/PC, 

par J.-F. GRIMMER. 

176 pages - 120,00 FF. 

Le traitement d'enquêtes et 
l'analyse des données. 


Diététique sur Apple II, 

224 pages - 120,00 FF. 
Mangez équilibré grâce à votre 
ordinateur. 


Apple en famille, 
RSS SES A SE De Je SEA N. 


232 pages - 120,00 FF. 


En vente en librairie, en boutique informatique 
et auprès de P.S.I. Diffusion 


40 programmes utilisés en 
Basic. 







Super Jeux Apple, 

256 pages - 120,00 FF. 

50 programmes de jeux en Basic 
sur Apple. 















Apple, modems et serveurs, 

par Alain MARIATTE. | 
224 pages - 130,00 FF. 

Apprenez à communiquer avec 

votre Apple. 


50 modèles Multiplan pour 
gérer sur Apple et IBM/PC, 
par P. et F. GYSEL. 

50 applications concrètes inté- 
ressant de nombreux aspects de 
la vie de l’entreprise. 


La programmation des jeux 
d’Arcades sur Apple Ile et Ile, 
par Jean-Luc FISCHER. 

340 pages - 140,00 FF. 
Apprenez à créer vos program- 
mes. 
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